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ABSTRACT 


One of the various essentials of military readiness is the administering and 
continual execution of medical immunizing agents. Service members and civilian 
persoimel working under contract are required to maintain a satisfactory level of medical 
readiness pursuant to the environment or platform they are assigned to. However, the 
guidance that oversees and classifies this “satisfactory” level is numerous in volume, 
broad in terms of definition, and difficult to interpret in terms of the methodology used to 
assign a specific rating. 

Because of the many interpretations of medical readiness, receiving a designated 
rating of C2 is considered to be acceptable in wartime interactions. Therefore, annual 
immunization requirements may be neglected throughout one’s tenure while still 
engaging in a wartime environment with the risk of becoming exposed to influenza 
infection. 

The collection, tracking, and analyzing of medical readiness data is interpreted 
differently thereby prohibiting the facilitation and compilation of adequate information. 
Medical systems are developed using many different technologies that omit the ability to 
interface with one another, are in adaptive to change, and do not provide an interactive 
gateway to permit service members to become proactive and responsible for their own 
medical readiness state. 
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1. INTRODUCTION 


A. PURPOSE 

The purpose of this research is to capitalize and integrate the use of intelligent real 
time technologies to effectively implement a system to monitor medical readiness 
resources, provide and forecast long-term readiness states, and promote the well being of 
our service members through proactive and interactive services. 

B. RESEARCH QUESTIONS 

This research thesis will address the following questions: 

• How effective are the current medical readiness collection and reporting 
systems? 

• Is leadership receiving the right data at the right time empowering them to 
make sound strategic decisions? 

• Is there a sufficient and effective medical readiness model in place and can it 
adapt to change? 

• Can the use of real time information technologies provide a stable and 
predictable medical readiness environment? 

• What intelligent technologies are available to support these medical readiness 
requirements? 

• What intelligent technologies are available to reduce the requirements of 
system administration and human interaction? 

• Using intelligent technologies, can medical readiness actually be more 
effective? 
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C. THESIS OUTLINE 

This thesis begins with an introduction to the medical systems within the 
Department of the Navy (DoN) that partially or in whole supports medical readiness. 
The mission of each system is reviewed; their various system functionalities; and 
interactions between each system are discussed followed by a short description of how 
medical readiness data is reported to senior management. 

Next, a discussion of intelligent technologies and what is available to use today 
relative to medical readiness is presented, followed by brief summary on how to develop 
intelligent software. Finally, it shall be determined if using intelligent technologies 
integrated within the requirements of medical readiness is feasible. 

With an underlying baseline of what medical systems are available and vsiiat 
intelligent technologies can do for medical readiness, the development of a web-based 
application is proposed to better meet the requirements by launching the fundamental 
architecture and how it will be designed. One of the key concepts of the web application 
design will reveal the paradigms of reporting data to management. A distinguishable 
feature of the web-application will be its ability to forecast medical readiness for entire 
commands or areas of operations in a real-time situation. In today’s technological 
advances of taking advantage of the Internet, personalization will be another ingredient 
that can cater to successful medical readiness data capturing and reporting. System 
administration will also be discussed as it too plays an important role in developing a 
successful web application. Prior to the conclusion of this thesis, the privacy of medical 
data will be reviewed with options of integration presented. 
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The last section of this thesis will present conclusions by addressing the questions 
initially presented in this research. Recommendations will be made to provide Navy 
Medicine and possibly the Military Health System (MHS) with a cost-effective solution 
to ensuring that medical readiness is captured, reported, and forecasted properly. 

D. EXPECTED BENEFITS OF TfflS THESIS 

Using intelligent technologies, the benefit of this thesis study will enable the 
development of a comprehensive, open architecture, and smart web-based application 
that will provide real time medical information and forecasting tools. Discovering, 
illuminating, and benefiting from these intelligent technologies will be combined into one 
application that because of its open architecture, will be able to communicate with other 
medical systems, thus creating an environment of system ingenuity and collaboration. 
The use of smart processes will learn the patterns of its users and adapt to their desires 
and requirements. In addition, automation and the censoring of events and processes will 
allow the removal of the mimdane tasks of system administration by monitoring itself 
using well-defined business rules. Thus the research and the development of a smart 
web-based application will provide not only a model for perfected medical readiness, but 
also a standard in developing real time technical solutions using a practical graphical and 
multimedia interface, automated system learning capabilities, and compilation of 
information delivered in a multitude of desired and prescribed formats. 
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n. MEDICAL READINESS INFORMATION SYSTEMS 


A. A REVIEW OF MEDICAL READINESS INFORMATION SYSTEMS 

WITH THE DEPARTMENT OF THE NAVY (DON) 

Currently there are over seven different varieties of medical or dental systems that 
either partially or in whole support some type of medical readiness. That is to say the 
systems may fulfill a subset of medical readiness requirements although not be in the 
original design. However, the systems have been able to provide just-in-time solutions to 
time critical instances of the Anthrax requirements and flu immunizations. 

1 . Composite Healthcare System (CHCS) 

The baseline of these medical systems is the Composite Healthcare System 
(CHCS). Through the CHCS, medical data processing capabilities have been, and are 
continuing to be, developed, acquired, and deployed to assist health care providers and 
administrators with the management and delivery of quality care to all Department of 
Defense (DoD) health care recipients. The CHCS provides flexible medical data 
processing capabilities for DoD medical treatment facilities (MTFs). The integrated 
hardware and software architecture is fully scaleable to support the wide range of DoD 
medical facility sizes, from small, standalone facilities to large, regional medical centers. 
Currently in development and testing, CHCS n focuses on population health, force health 
protection and readiness reporting. 

2. Standard Personnel Management System H (SPMS) 

SPMS provides support to the functions of manpower, personnel, education and 
training, mobilization planning, and expense distribution for the Bureau of Medicine and 
Surgery (BUMED). SPMS 11 is an on-line menu-driven program that provides 

headquarters, support and field users with an interactive, automated capability to manage 
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operation, planning, programming, and budgeting in the functional areas of personnel, 
education and training, mobilization, and expense distribution. The Defense Medical 
Human Resources System (DMHRS) is expected to replace SPMS H the near future. 

3. Defense Medical Human Resource System (DMHRS) 

A program under development, is designed to provide a single solution to the 
tasks of scheduling, training, managing readiness, matching personnel with tasks, labor 
cost analysis and other human resources issues. Depending on user access levels, queries 
on skills, training and performance analysis of personnel trends will be available. 
DMHRS will interface with well over a dozen different systems without duplication of 
existing data. New efforts target a fully web-based application which should significantly 
reduce maintenance costs and complications. 

4. Dental Management Information System (DENMIS) 

DENMIS is an integrated solution for Navy dental healthcare facilities, providing 
comprehensive capability to manage dental-specific tasks. It generates reports, collects, 
and uploads dental workload data; manages patient recall and readiness; interacts with 
external personnel systems through a standard interface; calculates provider, department, 
clinic and command productivity as a unit-cost measure; and provides source data for the 
Medical Executive Information System (EIS) and other systems. 

5. Defense Occupational Health Readiness System (DOHRS) 

DOHRS is a target system to replace the Occupational Health Management 

Information System (OHMIS). DOHRS will provide a data processing system that will 

support Occupational Medicine, Industrial Hygiene, Hearing Conservation and Vision 

Conservation Programs. It will expand upon OHMIS by providing a dedicated 

communications resources with the MHSS infrastructure, support plug-and-play 
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replacement of components, support a wider variety of database applications, and provide 
increased security protection. 

6 . Immunization Tracking System (ITS) 

A central repositoiy located at the Naval Medical Information Management 
Center (NMIMC) that receives all SNAP Automated Medical System (SAMS) Anthrax 
and other imm uniz ation data. All MTFs, branch clinics and operational units functioning 
with SAMS, will transfer any immunization data to NMIMC. After NMIMC receives the 
data, the data will then be transmitted to DEERS via ITS. 

7. Preventive Health Care Application (PHCA) 

A tri-service, integrated computer system designed to automate the collection, 
documentation, and analysis of clinical preventive services, immunization tracking, and 
persoimel and unit readiness information. 

B. INTERACTION AMONG THE SYSTEMS 

Each of the medical systems discussed above interface with one another using 
different types of connections, processes and workarounds. 

The PHCA’s immunization module interfaces with the Defense Enrollment 
Eligibility Reporting System (DEERS) in batch mode. It will download personnel 
immxmization files available in DEERS and then update those files after new 
immunizations are documented. The interface connection is provided via dial-up from 
the PHCA server to DEERS. Although the Navy still requires Anthrax immunizations to 
be inputted to NMIMC through SAMS, all other immunizations can be documented in 
PHCA and directly uploaded to DEERS. The ITS is fed data from SAMS input. 
Furthermore, PHCA has no ability to link directly with SAMS or ITS. The owner of 


7 



PHCA, Space and Naval Warfare Systems (SPAWARS), has not displayed interest in 
creating a connection. Neither SPAWARS nor Navy Medicine have programmed for any 
such connections. A work around of a potential coimection between ITS and PHCA is 
through DEERS. The planned two-way connectivity between DEERS and ITS will 
eventually create a window where PHCA to DEERS data will reach ITS via download 
from DEERS. 

PHCA can also download basic demographic and treatment, allergy, prescription 
data from the local CHCS server. The download is triggered either by one at a time 
requests from a medical provider using PHCA, or by the overnight batch process of next 
day CHCS scheduled appointments. The future deployment of CHCS II at a Medical 
Treatment Facility (MTF) will include the migration of PHCA resident information into 
CHCS n. At that point PHCA will be turned off. This assumes that CHCS H will be 
approved by the MHS for worldwide deployment. 

DOHRS is currently designing a connection with CHCS that may accommodate 
some instances of retrieving real time data while other non-immediate data will be 
retrieved in batch mode. It too has established an interface via batch mode with DEERS. 
However, DOHRS will actually retrieve the data from the Defense Manpower Data 
Center (DMDC) of which DEERS is a subset. 

This year’s effort for DHMRS is being referred to as personnel accounting 
support and labor accounting support application sets. There are many planned interfaces 
for the personnel accounting and labor accounting prototype is being worked. 

In summary, the majority of these medical readiness-reporting systems support 

only a batch interface with other systems. In some instances Miere direct interfaces 
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cannot be established, workarounds are provided. Also it vs^ noted that many of the 
interfaces require some form of human interaction to initiate a trigger of events such as 
uploading data. In the case of SAMS, a File Transfer Protocol (FTP) session must be 
established to send transaction data uploads to NMIMC for ITS updating. Depending on 
wiiat data is required and by whom, a medical provider or management, retrieving such 
information can be cumbersome and be very time consuming. The following table lists 
the medical readiness systems in both the row and column headings with an “X” 
indicating that an interface is provided whether in real time or batch mode. 



PHCA 

DEERS 

CHCS 

SAMS 

ITS 

DOHRS 

DMHRS 

SPMS 

PHCA 


X 

X 






DEERS 

X 




X 

X 



CHCS 

X 





X 



SAMS 





X 






X 


X 







X 

X 






DMHRS 









SPMS 










Table 1. Medical System Interfaces 

C. THE EFFECTIVENESS OF REPORTING MEDICAL READINESS 
INFORMATION 


PHCA reporting capability has not worked as required. For example, there are 

canned reports that don’t work well, or at all. The ad hoc reporting capability has never 

materialized. Software fixes and updates are in development to allow predefined canned 

reports to be accurately generated. Information within PHCA is not directly available to 
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service members in order to help them maintain their own medical readiness status nor is 
there an ability to modify PHCA for customizing readiness platforms. PHCA does not 
currently process information and pass to higher authority such as BUMED. Only until 
all fixes and updates are completed will such reporting commence. Once accomplished, 
PHCA will generate the reports re<]uired by BUMED-241 related to the Put Prevention 
into Practice (PPIP) Program. In relation to this, the Health Evaluation and Assessment 
Review (HEAR 2.0) tool imbedded in PHCA can provide a great deal of information 
about the health and wellness status of the MTF’s population. 

Parts of DOHRS reporting capabilities require trained users, i.e. Business Objects. 
Using Query-By-Examples (QBE) and the Structure Query Language (SQL) also requires 
trained personnel. DOHRS could possibly provide information to services members as 
all access is predicated on role-based security. DOHRS can be configured and maintained 
via a web-based front end. Additionally, web support is provided to high er authority to 

retrieve their required information. Again, this is also provided via protected role-based 
security. 

DHMRS is another program that requires trained users for reporting. Many of the 
users of these capabilities are fairly junior personnel. While Business Objects is a robust 
tool and the MHS standard, it may be rather complicated for the target audience. 
Implementing SQL capabilities has not yet been determined. User-defined reports are 
not very likely to be included in this program. DHMRS expects its data to be pulled in 
from other interfaces. The local transactional data should be easily entered in real-time. 
New solution sets for DHMRS are targeting web-based development. As other programs 
are adapting, using appropriate access authorization to enter, view, and query data 
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regardless of location via a web application has the potential to be included However, it 
is possible that some reports that are currently produced, printed and mailed may not be 
necessary once the full integration of web technologies are completed. 

In spite of the many methods of reporting medical readiness, there is no supported 
standard for sending, receiving, storing or producing data. Too many workarounds are in 
place to make the systems interact with one another. Except for SPMS11, these systems 
do not provide its end users with modem web-based, graphical, and easy-to-use 
interfaces. Although, SPMS 11 supports this objective, the System Administrator must 
run the reports in advanced and then provide them to management in batch mode. Thus, 
the data is inherently delayed and perhaps little or no use. 

The following table depicts the interaction and reporting capabilities among the 
systems. However, though the box may be marked “Yes” this doesn’t mean that the 
method used is totally efficient. The Row Header consists of the system’s ability to 
produce reports (REPORTS), establish a web interface (WEB), allow service member 
interaction (MBRS), provide the ability to customize the interface (CUSTOMIZE), 
provide reports to higher authority (HIGHER), produce adhoc reports (ADHOC), and 
provide a SQL interface (SQL). 
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m. INTELLIGENT TECHNOLOGIES 


A. WHAT ARE INTELLIGENT TECHNOLOGIES? 

Intelligent technologies have used since the industrial age and are prolific in the 
Information Age. Whether intelligent technologies are mechanical devices built into 
machines or computer software programs based on Artificial Intelligence (AI) the 
intelligence is explainable. Thus in this endower the emphasis in this thesis is on 
presenting intelligent technologies in the Information Age; more commonly referred to as 
the Internet or Digital Age. 

Within this context such concepts, ideas, and technologies are commonly referred 
as intelligent agents. There are definitions of an intelligent agent. In its broadest sense, 
an agent is a merely a representation of a body of people or processes. At one of the 
spectrum, agents carry out fundamental tasks that may be repetitive or acquire little or no 
real knowledge. At the other end, agents can be as complex as technology permits. An 
agent can be anything from a thermostat to a human being! Taking this basic definition 
and applying it towards a more technical frame of reference an agent can be “anything 
that can be viewed as perceiving its environment through sensors and acting upon that 
environment through effectors [Ref 1].” With continuing focus on technical terms 
relative to software, intelligent agents may be defined as “software entities that cany out 
some set of operations on behalf of a user or another program with some degree of 
independence or autonomy, and in so doing, employ some knowledge or representation 
of the user’s goals or desires [Ref 2].” With autonomy, the agent can take control of their 
own actions and initiate events independent of users or other agents. Thus an 
autonomous agent can react and perform tasks aligned with a decision process. This 
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concept may be refined as “a system situated within and a part of an environment that 
senses that environment and acts on it, over time, in pursuit of its own agenda and so as 
to effect what it senses in the future [Ref 3].” However, others would argue, “the 
program may be quite complex and be able to react to many different events, but the key 
is that the computer simply reacts, it does not act on its own [Ref 4].” 

To place this into context and sum up an adequate definition of intelligent agents 
it can be determined that these programs carry out tasks on behalf of users. The unique 
feature, which distinguishes software agents from other programs, is the ability to 
automatically adapt their behavior to the conditions they encounter and to make decisions 
based on a set of business rules and criteria, without specific instruction from the user. 
Agents may also commumcate with one another and with other programs or people to 
obtain information or enlist help [Ref 5]. 

Taking this definition and applying it to today’s realm of capitalizing on 
information and the Internet, searching agents may be utilized with their autonomy to add 
another dimension to traditional search facilities. There are a variety of ways software 
agents may be used to our advantage. Such tasks may include searching the Internet for 
specific bits of information, online shopping and e-commerce entities, and booking 
traveling information relative to the user’s preferences. Thus software agents are 
designed to enrich the user’s net browsing experience by suggesting additional 
hyperlinks, based on previous user behavior; engage in transactions and negotiations on 
behalf of the user; monitor databases on the World Wide Web (WWW) and provide a 
regular updating service; monitor web site changes; compile a daily personalized 
newspaper; discover other people with common interests; check and prioritize email; or 
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make decisions based on content and act on them. This is already happening 
transparently as we surf the Internet. 

Characteristics of agents may be separated into technological and social 
implications [Ref 6], Beginning with the positive aspects of intelligent agents, one of the 
biggest benefits is that they have the potential to free humans from the tedious work of 
searching for information on the Internet and in databases. The intelligent agent is 
supposed to aid in the searching by filtering out the information and data, which is of 
little or no value with little human intervention. The concept is based on computers 
contributing substantially to the freedom of the human mind from tedious chores to 
enable higher levels of creativity. Confining oneself to an artificial world created by 
some human programmer(s) does limit human potential [Ref 7]. 

B. OVERVIEW OF AVAILABLE TECHNOLOGIES 

The technologies available today to develop intelligent agents have evolved from 
a micro level of programming to a transparent and open-architecture development 
environment that is virtually accomplished by “point and click”. Intelligent software is 
not new. Interests have been formulated for the past few centuries with a concentration 
in Artificial Intelligence (AI) focusing more on human thought processes and 
representing those processes via machines, such as computers or robots [Ref 8]. Some of 
the more common programming languages that focused on AI were LISP, Smalltalk, or 
Prolog. 

Software agents that claim to be intelligent can practically be developed in a 
language that can accommodate the existence of sensors by capturing user interaction 
events, and providing the memory infrastructure to store user information and 
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preferences. Thus from this memory allocation, patterns may be established and business 
rules applied to enable the intelligent agent to react, trigger another set of events, or 
communicate with other agents. 

Many of the languages today used for intelligent agents are geared towards the 
Internet, as the information is more acceptable to dynamic changes and modifications. 
Traditional client-server technologies use programming languages that compile code into 
machine language. Thus compilation increases the execution speed. Many programs 
developed for the Internet fall under the interpretive rule where each line of code is 
executed at run time. This leaves room for more error but quicker development and 
provides an interface to enable user interaction. 

Programming languages that meet Internet potential include the popular 
Hypertext Markup Language (HTML), which is the core programming technology. More 
recently the development of Dynamic Hypertext Markup Language (DHTML) that 
includes the use of Cascading Style Sheets (CSS) has evolved. The uses of CSS allow 
the HTML author to separate presentation definitions from content in HTML documents. 
To provide more interaction with the end-user, an interpreted, object-oriented 
programming language was developed by the Netscape Corporation called JavaScript. It 
was developed mainly to add power and interactivity to web pages in order to provide 
better interaction with the user and cut down on network and server traffic [Ref 9], Other 
varieties of this scripting language have been developed by Microsoft called VBScript 
and are a subset of the Visual Basic programming language. The introduction of these 
scripting languages provides increased programming flexibility and aids in network 
efficiencies. Another object-oriented programming language was developed by Sun 
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Microsystems called Java. Originally, Java was developed for real-time embedded 
software for consumer electronics. With the popularity of the Internet, the efforts of Java 
were redirected. The most notable outcomes of Java is the ability to be portable across 
many different platforms as its code is compiled as just-in-time byte code via systems 
that implement the Java Virtual Machine (JVM). Any one of the Internet based 
languages can behave as an intelligent agent as long as it has access to some type of 
storage media to receive user preferences and determine patterns. However, the use of 
these languages would require a great deal of programming. 

Interaction with a web server and common programming languages such as 
Visual Basic and C++ have been provided by what is called CGI capabilities, or Common 
Gateway Interface. Thus before a web server would deliver the web page to a browser, 
an executable program would run externally via CGI that would process data calls or data 
manipulations. CGIs became a popular mechanism to run programs on the server but 
became very resource intensive. For every request by a web browser, the program would 
have to run in memoiy. 

Another popular scripting language was developed called the Practical Extraction 
and Report Language or Perl. Borrowing heavily from the C programming language, Perl 
has become the language of choice for many input/output, file processing and 
management, process management, and system administration tasks. 

In an attempt to minimize the use of computer resources on the client side via the 
web browser and bypass the CGI, other specific languages have been developed that can 
process information transparently and simultaneously before the web information is 
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delivered to the client’s web browser. Two common languages are ColdFusion by 
Allaire and Active Server Pages (ASPs) by Microsoft. 

ColdFusion is a rapid application development system for developers who want to 
create dynamic web applications and interactive Web sites. It provides an efficient way 
to integrate browser, server, and database technologies into powerful web applications 
[Ref 10]. ColdFusion applications are developed combining traditional HTML and a 
server-side programming language known as the ColdFusion Markup Language (CFML). 
ColdFusion provides many interfaces to popular Internet technologies such as the Simple 
Mail Transfer Protocol (SMTP), Post-Office Protocol Version 3 (POPS) for email 
services, the Hypertext Transport Protocol (HTTP) and File Transfer Protocol (FTP) for 
handling data transactions. 

Microsoft s Active Server Page (ASP) is an open, compile-free application 
environment that combines HTML, scripts, and reusable ActiveX server components to 
create dynamic and piowerful Web-based business solutions. ASPs enables server-side 
scripting for Microsoft s Internet Information Server (IIS) with native support for both 
VBScript and their Java-like Jscript, thus there is an extreme emphasis on using 
proprietary software. 

To accommodate the transfer and sharing of information the Extensible Markup 
Language (XML) was developed as a recommended standard. XML is the universal 
format for structured documents and data on the Web. Along with the use of XML is a 
protocol called Web Distributed Data exchange (WDDX), which is an XML-based 
technology that enables the exchange of complex data between Web programming 
languages. WDDX consists of a language-independent representation of data based on an 
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XML 1.0 Document Type Definition (DTD), and a set of modules for a wide variety of 
languages that use WDDX. WDDX can be used with HTTP, SMTP, POP3, FTP, and 
other Internet protocols that support transferring textual data. 

More specifically developed for intelligent agents is software known as an Agent 
Commimication Language (ACL) consisting of its vocabulaiy, an inner language called 
KEF (Knowledge Interchange Format) and an outer language called KQML (Knowledge 
Query and Manipulation Language). An ACL message is a KQML expression whose 
arguments are sentences in KEF formed from ACL’s vocabulary [Ref 3]. Due to the 
nature and objectives of this thesis, ACL and KIF will not be furthered studied. 

C. DEVELOPING INTELLIGENT SOFTWARE 

There are many different methods to designing intelligent software. Whether it is 
in a formal or informal sense, a programmer with some basic business rules can apply 
them. Some of the more formal concepts are discussed below [Ref 3]. 

1. Rule-based Approach 

The rule-based approach features a collection of user-programmed rules or 
processing information related to a particular task. 

2. Knowledge Base Approach 

This interface agent has domain-specific background with sufficient knowledge 
about the application and user to recognize plans and contribute to users’ tasks. 

3. Machine Learning Approach 

This approach addresses problems encountered by the rule-based and knowledge- 
engineered approaches. This approach requires less initial work, and adapts over time. 
The agent acts as a personal assistant to cooperate with a user on a task, but makes 
allowances for user override. 
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Integrating these agents to exchange information and services vvith other 
programs independent of individual agents’ internal data structures and algorithms 
requires a umversal commumcation language to eliminate inconsistencies and arbitrary 
notational variations. 

D. INTEGRATING THE USE OF INTELLIGENT TECHNOLOGIES AND 

MEDICAL READINESS 

Integrating the use of intelligent technologies can provide an excellent 
opportunity to reengineer immunization processes, better inform Commanding Officers 
(CO) of their command’s readiness status, and provide a proactive service to its service 
members. 

An example is provided by an overseas command where military readiness 
tracking was a rigorous process that had continually reported a 98% deployable status. A 
deployable status is defined as total command personnel with a Cl or C2 readiness rating. 
A C2 rating is assigned when a requirement such as an annual HIV test is past due or 
does not exists at all. However, accepting a C2 rating as a deployable status allowed staff 
members to go without an annual HIV test far past the due date. 

The method of reporting readiness status by the overseas MTF provided many 
inconsistencies revealing high levels of inaccuracy in the data collection process. 
Additionally, it is the responsibility of the service member to report the most recent 
immunization or test received to the Contingency department. This alone prohibited the 
ability to receive real time information. 

The MTF was perplexed as to what really makes up a Cl readiness rating. What is 
medical readiness? What is a standard methodology of tracking the command and all 
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active duty members? What is a standard and convenient method of reporting the 
information to management? 

To answer these questions, the command was able to turn to intelligent 
technologies with an applied baseline of medical requirements, and the ability to 
customize requirements based on their location. The command developed objectives and 
business rules that would support and determine the functionality of a web-based 
application. The objectives and business rules follow; 

• In conjunction with the combination of higher authoritative directives, the 
command would develop a Cl requirement model. 

• The responsibility to comply with the Cl model needs to be placed back into 
the hands of active duty members. 

• The responsibility of tracking Cl requirements needs to be placed back into 
the department and division heads hands. 

• The responsibility of updating the data needs to be placed back into the hands 
of the originators. 

• Command leadership deserves accurate information reporting. 

While aligned with the use of intelligent technologies, the MTF desired a 
continued utilization of their “available technology” via Internet email. This new 
addition could automatically notify the service members when their next HIV or Anthrax 
immunization is due and \^diere to receive it. Additionally, the requirement allows other 
(COs) to retrieve their own information so they too can take a more proactive approach to 
becoming ready. 
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IV. DEVELOPING A MEDICAL READINESS WEB 

APPLICATION 


A. THE UNDERLYING ARCHITECTURE 

The first essential requirement to developing a medical readiness web application 
was to determine its name. Through the collaboration and ideas from many potential 
users, Readiness Explorer was chosen as the application name. It will be referred to as 
such throughout the remainder of this study. ColdFusion by Allaire was chosen as the 
programming language because of its ease of development. Writing code in ColdFusion 
is very easy. Plus it easily integrates into HTML pages. The basic programming 
principles are very easy to grasp. Speed of development was also a key decision point 
and ColdFusion meets this requirement. Additionally, with ColdFusion, scalability is an 
issue that is virtually risk free. If there is ever a requirement to move a ColdFusion 
application to another operating system, it will migrate perfectly. 

1. The Fundamentals 

Readiness Explorer was designed with seven fimdamental layers and a security 
reference monitor encompassing all. This reference monitor will ensure that users have 
access to only the web pages, data records and queries, and objects within Readiness 
Explorer that they are authorized to access. The Reference Monitor is located within the 
“application.cfin” page that is processed before any single ColdFusion Markup (CFM) is 
served to the user. The following figure shows each layer surrounded by the Reference 
Monitor with the interfaces listed at the bottom: 
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Figure 1. Readiness Explorer System Application Layers 
a. Data Interfaces 

The first layer consists of the Data Interfaces that stores, manages, and 

provides the necessary data to the user and application. There are three separate 

Microsoft Access databases designed to store and retrieve data using the Structure Query 

Language (SQL). One database called reCONFIG (see Appendix B) stores all of the 

information relative to the system itself that is configurable by the administrator or 

delegated user. This database also includes information relative to some of the 

underl)dng support for Readiness Explorer such as help summaries and link options 

within each page. The second database called reUSERS (see Appendix C) consists of all 

user information. In addition to basic user demographics, data such as the user’s personal 

address books, calendar functions, and email is stored in numerous relational tables. The 
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last database called reDATA consists of command-defined tables that actually establish 
the business rules, medical readiness profiles, and reporting criteria. Because the 
reDATA database dynamically creates tables relative to a profile determination, a data 
dictionary is not provided. 

The skeleton of Readiness Explorer is stored in special files on the server 
using XML format. The advantage of storing the infrastructure in XML was its 
portability. The three databases mentioned above could be stored in Microsoft’s SQL 
Server or other larger scaled database systems. However, using XML in combination 
with ColdFusion allows the application to be stored on other operating systems such as 
Unix or Linux. 

ColdFusion manages the final area of data storage on the server that holds 
Readiness Explorer. This data is never sent across the network. Thus ColdFusion and 
Readiness Explorer only use it specifically relative to the user. As each user logs into 
Readiness Explorer, ColdFusion establishes Session variables with an expiration that 
track the user’s transactions and maintains demographic data as it may be needed during 
the use of Readiness Explorer. Using this methodology saves time on the server and 
reduces overload. 

b. System Adndmstradon Layer 

With the authorized access provided by the Reference Monitor, system 
administration is the next layer. It plays a critical role in using Readiness Explorer. 
When a system administrator logs into Readiness Explorer, authentication is immediately 
determined then the administrator is presented with additional options. Because 
Readiness Explorer can be customized to the environment of the command. 
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administrators can create their own pages and add page-specific help summaries. 
Therefore, if an administrator toggles “edit mode” most of the objects within Readiness 
Explorer will appear as form items so that they may be updated immediately. System 
Administrators have complete control of Readiness Explorer from any web browser. 

c. System Layout 

Once the Reference Monitor determines the users capabilities, 
authorizations, and preferences, the actual layout of Readiness Explorer will be 
displayed. This may include what “tabs” are provided and what “pull down” menus and 
other services they may have access to. 

d. Body Portal 

The body portal is where Readiness Explorer displays all of its 
information. This is an important feature of Readiness Explorer because of how the data 
is displayed. Readiness Explorer allows data to come from any device connected to the 
Internet. In order to maintain the “look and feel” of Readiness Explorer, ColdFusion uses 
the HTTP to retrieve the desired information and then pulls it into Readiness Explorer as 
if it were part of the native program. 


( 
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Figure 2. Example of HTTP and Pull Technology within Readiness Explorer 


e. Desktop Interface 

Everything that surrounds the “body portal” is the desktop interface itself 
that consists of seven separate parts. The first two are the left and right invisible frames 
at the top of Readiness Explorer. The left fi-ame holds the official Readiness Explorer 
logo, and the right holds a search utility. The third frame consists of the tabs that support 
each page within Readiness Explorer, followed by the toolbar and panel areas. The 
footer is below the body portal. The desktop interface is completely customizable by the 
authoring command. However, some frames may be locked as desired to protect the 
initial or customized functionality of the program. 
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f. User Interface 

The User Interface presents the functionality of Readiness Explorer to the 
user. Much emphasis has been placed on this interface. While using Readiness Explorer, 
the objective of the User Interface layer is to integrate all of the user’s other web-based 
tasks into one universal and presentable application. With the ability to provide a portal 
of information, adding additional user functionality to make their experience more 
worthwhile is easily obtainable. Giving the user a sense of personal preferences and 
customization will ensure that the Readiness Explorer product is used properly. Some 
examples of providing users with additional functionality include receiving news updates, 
calendar operations, and email notification. 



Figure 3. Sample User Interface Option 
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2. Open Architecture 

In order to provide the command with an application that can be extended beyond 
its initial capabilities, developing Readiness Explorer imder an open architecture was 
critical. Thus this architecture provides the command with the ability to add or remove 
any type of functionality. Adding additional functionality does not require the use of or 
knowing ColdFusion. In fact, any language may be used whether it is Perl or Microsoft’s 
ASPs. The file is simply dropped into their respective frames. For example, the right 
frame at the top of each page, which initially contains a search utility, written in 
ColdFusion could become an intelligent search engine “bot” written in Perl. 

The entire web application is designed using a specific protected administration 
page that provides options to use generated files, inline HTML code, or retrieve 
information directly from another web site via HTTP. This provides a web application 
that acts on behalf of a web portal in the sense that it can retrieve additional information, 
analyze it and display it to the user on one simple web page. 

During the stage of designing the web application tabs, which contain each 
functional category in Readiness Explorer, the user is provided a “home” tab followed by 
Search, Tools, myAccount, Reports, Profiles, Resources, and Administration. Using the 
Security Reference Monitor, access of any of the tabs and the components within the 
page that the tab actually displays can be controlled. Once the tabs are created, clicking 
on them allows easy access to more information such as pointing to a file, web address, 
or by typing inline HTML code. 
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Figure 4. Open Architecture Design Process 


3. Customization 

To guarantee a successful web application that supports personalization, 
Readiness Explorer was developed with numerous user options. Users are immediately 
presented with the ability to personalize their desktop beginning with changing the 
colors. These colors are stored in XML format so that other users can share their colors 
schemes as well. Additional features such as customizing the toolbar and adding pull 
down menus to quickly get to information from anywhere within Readiness Explorer 
makes the application quick and efficient. A side panel is provided in Readiness 
Ejqjlorer specifically for user interaction. It consists of small-scale email notification and 
news updates. Users can easily choose what they want on their panel or they may hide it 
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completely. Panel components may also be placed in the Security Reference Monitor so 
that the System Administrator may only access them. 

4. Navigation 

A major design goal was to allow Readiness Explorer users access to information 
and services quickly and easily. For example, navigation within a web application plays 
a critical role in providing easy access to information. Because of the ease of HTML 
programming, adding this ability did not take much time. Adding additional navigation 
features is easy and inexpensive. 

Within Readiness Explorer the “tabbed” interface provides an overall view of the 
application without having to drill down though layers of menus. Users are also able to 
create their own pull down menus below the tabs. These pull down menus serve as 
placeholders for common tasks such as bookmarks and routine transactions. This too is 
more efficient as users do not have to drill down through pages to reach common tasks. 
One of the pull down menus automatically gathers information relative to the tasks the 
user may use most often. This is accomplished by establishing the intelligent agents to 
sense the user’s common tasks and look for patterns. Below the user-defined pull down 
menu lies a toolbar that is split into two sections. One section includes application 
specific options such as getting help and logging off, while the other section is for the 
user’s xise. Again, this gives the user the ability to quickly retrieve any type of 
information desired quickly. The “tabbed” names are also displayed as footer links at the 
bottom of each page. 

Inside the body portal many of the tasks are grouped by another set of “tabbed” 
pages. The groups are also used in this fashion to prevent drill down or reloading of 
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pages for efiBciency. Each set of tabs also has a toolbar with built in functions relative to 
the task being performed. 

5. Personalization 

Personalization is discussed in detail later in this paper. However, it is something 
that Internet technology requires. Personalization is the key to the successful 
implementation of any web application. As Readiness Explorer was developed 
considerable emphasis was placed on personalization to ensure that the user had a central 
familiar portal of information. Many options were added to include reminders that may 
help a user track a PPD test, email notification that could provide immediate subject 
notification, command news portals, quick access to folders of resourceful information, 
address books and bookmarks so that the user could quickly refer patients who may have 
inquiries relative to a particular immunization. 
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Figure 5. Personalization Page Listing User Options 


B. CREATING MEDICAL READINESS REQUIREMENTS 

Creating the medical readiness requirements is the foundation on which Readiness 
Explorer stands. A requirement is the basis for each platform and provides the 
information needed to present an accurate readiness status state. By providing an 
interface for establishing user defined readiness requirements, commands can add to a 
required baseline, established by higher authority, to meet their surroimding environment 
and cultures. For example, an overseas command may have readiness requirements that 
differ from a command within the United States. Therefore, die overseas command can 
simply add a new requirement and make it a part of their readiness needs. Separate 
platforms may be set up in order to prepare for special needs, for example a platform 
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customized for a Surgical Response Team (SRT) for an up coming deployment that may 
require additional medical readiness preparations readily accomplished. 


As shown in the figure, each set or group of requirements is known as a profile 
and thus is laid out in a tabbed form that easily distinguishes each type of profile. Not all 
service members may require a certain profile based on their assigned templates. Each 
profile is made up of fields that have been preinstalled as a baseline plus those 
dynamically added by a command. Any command, depending on their mission, may 
easily add additional requirements that will not affect other commands. 
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Figure 6. An example of Tabbed Profiles 

Creating the profiles is accomplished first by identifying a group of requirements 
such as demographics, education, or immimizations. Completing a set of steps and 
determining the layout of the fields that will be contained within the profile is performed 
next. The demographic fields may be laid out so that only one record is displayed, 
whereas the immunization layout may be displayed in tabular format representing 
multiple encounters. 


34 












Once the new profile has been saved adding the required fields is the next step. 
As the fields are added, an actual database is being created and field elements added. 
Creating fields consists of assigning names, data types, and validation rules. Every 
strong data validation rules are used within Readiness Explorer to ensure that bad data is 
corrected before entry into the database. After creating the initial fields, identifying the 
readiness requirement follows. If the contents of the field fail a certain requirement, a C 
Status rating must be applied. This can be indicated from one through five options or 
none. For example, if an HIV field is created, failure to meet the requirements for an 
annual HTV test will result in a C2 rating followed by an indicator of color that 
determines how to visually show that the field has expired. Following the set of initial 
readiness requirements are few user selectable properties that provide help to the user. 
The design goal was to not only make it easy to add readiness requirements, but ensure 
that the end users are able to quickly enter data for each service member. 
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Figure 7. Form used for creating profile field requirements 


During the next and most important phase Readiness Explorer now actually 
determines the medical readiness requirement by querying the database that was 
automatically created by user inputs. Similarly, the user need not know any fonnal query 
language to query the database and this can easily identify medical readiness 
requirements that can automatically be interpreted into code and SQL commands to 
ensure recognition by the database. The user simply adds rules by choosing from a list of 
fields and applying operators. Thus for an annual PPD, the user creates a new rule and 
calls it “Annual PPD”, followed by selecting the PPD field. Then they select the “IS 
NOT EMPTY” operator and click on “Add Rule.” This will add the first rule set and is 
transcribed by Readiness Explorer behind the scenes to an SQL instruction which reads 
(ppd IS NULL). This will trigger a failing event. The user may now continue to add 
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another rule definition by clicking on the “OR” condition followed by the “HAS 
LAPSED” operator and entering 365 in the Value field. Readiness Explorer will now 
interpret this to read (ppd IS NULL) OR (DateDifiF( ‘d’,ppd,Now() ) >= 365) which 
means that if the PPD field is empty or if the date within the field has lapsed the past 365 
days, then trigger an event that will assign the applicable C status rating, in this case C2. 
These business rules are stored in a database that will be used to apply to every profile 
that is displayed so a real time snapshot of the service member’s profile is available. 
These same rules will be applied during nightly batch processing to ensure that each 
record is accurately checked for the needed medical readiness requirements. 
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Figure 8. Designing Readiness Business Rules 
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C. THE PARADIGMS OF REPORTING TO MANAGEMENT 

Information today is transferred, shuffled, managed, and interpreted all over the 
world using many different types of methodologies. Scenario A: When a senior manager 
or commanding officer in the case of the military needs information, too often the request 
is delegated through a long chain of individuals before the request is actually received by 
of the owner of the information. Typically by that time, the information request is either 
overdue or requires crisis management to responds quickly as described next. Scenario 
B; The information gathers, who often times are junior, receive the request late and rush 
to provide what they perceive to be proper information using the desired fo rmat Many 
methods of producing information may include easy tasks as running a menu option or 
even a script, while at other times tasks may be more difficult such as running a 
programming script or even writing code to obtain the data. Once the data is collected it 
in turn is rushed back up through the chain of command to the senior member who 
requested it. The CO receives the information only to find out that from his perspective 
the information is incomplete and not in the desired format. ^^This wasn’t exactly what I 
was looking for.” And once again the request for the data goes back down the line and 
the cycle starts over again. 

Advancements in technology have enabled us to better retrieve information. But 

the central issue is who owns the data. Who owns the process of retrieving the data? 

There are many products on the market that allow easier access to data and easier 

methods to create the reports than ever before. However, this still requires someone to be 

designated as that person who owns the data and knows hot to retrieve it. Many times 

requires specialized programming knowledge that costs a lot to training and maintaining 
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a certain level of staff expertise on board. There may be circumstances where the ability 
for users to pass on the information to others through On-The-Job Training (OJT), but 
this is not always the case. 

Continued advancements have been made to add functionality to simple choices 
such as menu items that any user can simply select to activate a report. But this too 
requires a great deal of time from the administrator who is going to have to first ensure 
that the script is working and be able to add to the menu items. As shown from the initial 
scenario, once the information is provided, it may not be in desired format. Thus the 
administrator is now required to change the code for that individual and rerun the script. 
This is time consuming and costly. 

Users at all levels of management and business processes must have easy, reliable 
access to information that aids them in their decision-making. Senior management 
cannot be expected to know SQL or understand how to use Business Objects, but they 
must be able to quickly retrieve information through a web browser, word processing file 
or spreadsheet. Thus using intelligent technologies. Readiness Explorer is able to 
accomplish this. Like other medical systems, Readiness Explorer provides the ability for 
adhoc reporting through the use of SQL as the figure shows below: 
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Figure 9. SQL Report Form 


There are many other features that Readiness Explorer can provide. For example, 
reports may be created and saved for future retrieval. COs can have their reports emailed 
to them automatically on a weekly or monthly basis. The use of intelligent technologies 
today warrants the ability to send information quickly to other electrical devices such as 
pagers and cellular phones. If a CO deems necessary to be notified if the command’s 
overall readiness status reaches 80%, then Readiness Explorer can automatically 
forwarded this information as soon as this threshold requirement is met. The figure 
below demonstrates the ability to bring up information within any desktop application 
that transparently retrieves information via the Internet from any web application into one 
simple document or spreadsheet. 
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Figure 10. Snapshot oflnformation Using Desktop Applications 


Along with sending information to management and process owners. Readiness 
Explorer continues to take advantage of intelligent agents by applying the command’s 
business rules against service member data and reviews for compliance. Not only can 
Readiness Explorer check for compliance, but also review for proactive determination is 
possible. Thus, if a business rule fails. Readiness Explorer can automatically send an 
email message to the service member notifying the expiration of their current or future 
immuni 2 ation. The following figures provides an example of the email message; 






































A RE: medical readiness update 



fwwad,' fta*- . r W * Missm 

i -Friiay,1»»iwm%erB4f3aW01:^ ' . ’ ;; ; 


FROM:NH 

TO: LT Mkhael'Wliiiecar 

As your Medical Readiness is veiy imporianl to ns,our records indicate ftat yonr HIYwill c^^ire on 1 
l)ecem1»er 2(H10vYoiircYirrent medicalivadiness stains is: Cl. 

Please contact NH to npdate. BTyon feel any of tliis information is in error, please contact ns at 
802i555.1122. If yon vonidlike to view your Personal Profile, please point your browser to 
ldMtpj//nh .wed.navy jMfl/readiness/personal 


Figxire 11. Email Snapshot of Advanced Immunization Notification 


D. FORECASTING MEDICAL READINESS 

Forecasting medical readiness through Readiness Explorer may be accomplished 
by continually analyzing the service member’s data. The following reports are provided 
within Readiness Explorer and may be modified to better suit the user’s needs: 


REPORT 

DEFINmON 

Personnel Smnmary Report 

A Personnel Summary Report provides a 
complete detailed summary of each profile within 
command and department selections made. Those 
requirements that are required to be Cl and are 
overdue are marked in the failed triggered color 
and outlined in brackets for easy printing. Those 
requirements that do not make a profile Cl but 
are helpful are marked in yellow/gold including 
outlining brackets. 
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Platform Assignment Roster 


The Platform Assignment Report provides a 
complete list of all platforms within the 
command. This report identifies those personnel 
who are not in a Cl compliant status. The 
information provided ensures that those personnel 
on one of the platforms are in compliance as they 
will be the first to possibly be deployed. _ 


Table 3. List of Readiness Explorer Pre-Defined Reports 


E. PERSONALIZATION 

The use of intelligent agents not only provides the ability to create a robust web- 
based application that can refine the medical readiness process, but it also caters to the 
concept of personalization. 


Personalization is not a type of technology but a process that is part of this overall 
web strategy. Using intelligent agents, monitoring user behaviors and transactions may 
be collected, analyzed and returned to the user in a customizable form. Personalization 
can be defined as a technique used to better understand the users, and as a process of 
ongoing modification to underlying systems to better address the preference of the end 
users [Ref 11]. Personalization may offer the end users more convenience, greater value 
and higher levels of customer service and satisfaction. By combining web technology 
and intelligent agents with the fundamentals of personalization, commands can gain a 
better understanding of their user preferences. 
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Figure 12. Data Capture Strategies 


Data capturing strategies are a relevant and significant aspect of personalization. 
Jupiter Communications has developed a pyramid that depicts levels of data collection 
and how the data is collected [Ref 12]. 

The information at the bottom of the pyramid is considered the broadest variety. It 
is not very useful but it is very easy to capture. Moving up the pyramid, each of these 
types of information requires a more intensive method of personalization. 

At the Platform Domain layer informs the command things like what browser 
their users are using, or what domain the user is coming from. This information can be 
obtained using relatively unsophisticated client-side sniffing technologies such as 
JavaScript or ColdFusion. 

The Clickstream layer gives a command insight into a user’s behavior within the 
web application. It provides information about where the user came from and where they 
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go within the application. This information can be used to evaluate the navigation 
strategy and the-paths used to reach certain transactions. The quality of clickstream data 
will vary depending on the quality of the application analysis system used. 

Registration can be veiy basic such as collecting the user’s name and email 
address or more complex. In the case of Readiness Explorer, information about the 
user s command. Project Rotation Date (PRD), and how to contact them are requested 
during registration. 

The layer of Explicit Inputs include when a user inputs words into a search query, 
response to an online survey, or questionnaire. If a user selects preferences wi thin the 
application such as color schemes, is considered an explicit input. This information 
allows the command to connect one user with their personal type of data or services. 

At the top of the pyramid is the Transactions layer. Transactions yield rich user 
data, enabling the command to capture specific patterns and trends 
F. INTERFACING WITH OTHER MEDICAL SYSTEMS 

A concept for interfacing with other medical systems is known as the Component 
Object Model (COM) and Distributed Component Object Model (DCOM) by Microsoft. 
Each small piece of DCOM code, usually written in Visual Basic or C++, is placed on the 
individual server. Data manipulation that is requested by Readiness Explorer will take 
place using the protocol Open Database Connectivity (ODBC). Data may also be 
provided by the means of flat files. The methods used to transfer the data may include 
HTTP, Telnet, or FTP. If business practices permit, data may be written back to the 
providing server as well as read only. 
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Each interface is created dynamically by the site that will begin by dete rmining 
the servers, the data dictionary, and transfer protocol by an easy to use interface. In its 
simplest form, when a user retrieves a profile, the underlying fields may transparently 
retrieve data via an interface from another system. The following figure demonstrates 
creating an ODBC interface: 





SoSc?alracSeS!?""*"**^Hse5ctfromv!D!rS^ W 


Personalize Edit T oolbar Help Loq Off ^ 










Name: 

trcrtODSC 

Desoiption: 

iThis wiB test the odbc 


: connection, 

ODBC Name: 

jReadinessTest 

Table Name; 

• Iready 

Lifted Refcl: 

jssn 

PERMISSIONS 


Read Data? 

<*■¥65 

Write Data? 

Yes ^ No 

SERV® 


Data on Local Server? 

^Yes <^No 

Adciess; 

1192,101.126.15 

Port Number: 

i2700 1 

Login D; 


Password; :• 





Figure 13. Screen shot of creating an ODBC Interface 

G. INCORPORATING INTELLIGENT TECHNOLOGIES IN THE TASKS 
OF SYSTEM ADMINISTRATION 

System Administration has always become a burden to the beholder of the title. 
Many of the responsibilities are placed on an individual who has the position as a 
collateral duty. This individual is then required to attend just-in-time training if it is 
available from the “outgoing” administrator, or attend training at an institution. Such 
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laborious learning techniques include database administration, running a typical type of 
server, and from the software program’s perspective, run a myriad of individual tasks. 
Furthermore, to complicate the issue, administrators are required to run batch processes 
that can accommodate reporting capabilities and forward information to other external 
sites using such technologies as FTP or sending media on disk. As an administrator to 
the system, they have to create user accounts, maintain tables of information, and 
understand the process of the system. Security checks must be accommodated to ensure 
the protection and privacy of data stored on the system. From a collateral duty 

perspective, this is all too time consuming, as this may be one of many administrator 
duties this person may have. 

To accommodate the administrator, intelligent technologies may be integrated to 
ease the burden and responsibilities. Intelligent agents may be used to “sniff’ the audit 
logs to look for inappropriate patterns of connectivity and usage. Automation techniques 
may be imposed to further streamline the administration process. 

If the system is decentralized with respect to its usage among many facilities, 
appointing administrators at each port may be difficult and not warranted for security 
purposes. User accounts cannot be managed individually because providing access to 
these accounts may provide access to other areas of administration that should not be 
delegated. 
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Some of the techniques used within Readiness Explorer are discussed individually 

below: 

1. User Accounts 

Maintenance of user accounts probably makes up the majority of the necessary 
time to run the system. This includes tasks as adding new users, ensuring the new users 
are trained in their new environment, providing new users with login IDs and passwords. 
When a user departs, it is crucial that the accounts are removed from the system. If the 
administrator is unavailable when the individual is checking onboard, then they have to 
wait for him/her to return. Therefore, Readiness Explorer will provide a quick and easy 
method for the administrator to create a new user and assign the appropriate security 
policy. Once the accoxmt is created, email may automatically be forwarded to the new 
user with their new login ID and password followed by a set of instructions on how to 
coimect to the system. To make things easier, one of the requirements when adding a 
new user is to let the system know when the user will be departing. This way the system 
can automatically remove the user when their time has elapsed. This is a great way to 
ensure temporary accounts are in fact removed from the system without the concern for 
security. Along these lines, the tasks of adding users may be delegated to department 
administrators that have access to the system with additional privileges to add, edit and 
remove users. Thus, the task is delegated and the primary administrator is not tied down 
to one area of the system. The user account is now part of an intelligent process that will 
be monitored by the system, removed when appropriate or report any odd patterns. 

2. Security Policies 

It may be necessary to monitor user accounts while they are on leave or a business 

trip. In some cases if it appears to be a problem, accounts should be secured while the 
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user is in a vacant status. Again, using intelligent agents the system can scan the logs for 
patterns that do not appear normal. Furthermore, users can inform the system when they 
expect to be vacant and how long with the option to secure their accounts during this 
period. With these provisions and precautionary measures, users can comfortably be 
away from the system without the assumptions that someone is using their account due to 
knowing their login IDs and passwords. If the account was used during this vacant time 
frame, the system can identify who used the system and what exactly was performed 
during these transactions. 

3. Error Control 

Readiness Explorer provides an Error Monitor similar to the Security Reference 

Monitor, to eliminate unnecessary tasks by the System Administrator. This concept uses 

intelligent agents to react to an error within the application and try to fix the problem 

based on a preset of business rules that determine cause and effect. If the error can be 

corrected, the end user will not have any knowledge of the correction, however, the error 

and the measures taken to correct it will be recorded in a log file and forwarded to the 

System Administrator. If the error cannot be corrected, the user will be presented with 

the error information and an opportumty to provide additional information via a form. 

H. PROTECTING THE PRIVACY OF DATA 

Protecting the privacy and integrity of data, whether it is the recording of 

immunization dates, or information relative to user accounts, is a significant development 

issue. To address security within a web application it must first be understood what the 

application will do, what data it will transmit, and who its target audience is. Wi thin the 

design framework of this scheme, there will be many levels of security. The first layer 

shall begin with the application server. The primary crucial requirement will be the 
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ability to place the database files outside of any web-enabled directories. References to 
the databases will be made by names other than the name itself Within this database 
framework, specific data that may be of significant value to a user or transaction shall be 
encrypted. Second, storage of runtime information shall be stored on server variables 
that are up against a timer or expiration. Information may be stored in variables that are 
specific to the entire application, session or user. Only the server will have access to 
these variables, therefore, using them only to dynamically produce desired web pages 
without exposing the variables over the commimication line. In the case of Readiness 
Explorer, session variables are used extensively not only for security reasons, but also for 
the effectiveness of providing just-in-time information relevant to the user’s experience. 

The next level is a common and basic nature, which is the standard login 
identification (ID), and password. Using a feature called Autopilot, Readiness Explorer 
can inform the user of password expiration via an email message or when they initially 
log in. Chice the user logs in, the session is then forced through a set of constant 
conditions such as the time of the day or day of the week that access is allowed. 
Additional features include blocking by Internet Protocol (IP) addresses and domain 
names. Every single page that is execute is run through this scenario. Another level 
entered into this realm is the audit trail. Every single transaction is recorded. Not only is 
this used to track individual usage, but also the historical data is used for pattern 
recommendation to assist die user with future support and making recommendations to 
others users. Along the audit trail capabilities comes the idea of “logging” certain users 
or certain records if modified to cause an alert. During the maintenance phase that is 
performed on a daily basis, the audit trail is scanned for patterns that may appear out of 
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the ordinary. Furthermore, any security violations are automatically forwarded to the 
System Administrator via email. 

Before each page is served to a user their identity is ran through a “reference 
monitor” concept and a rule based (user based) scenario. The System Administrator via 
security policies develops this reference monitor. Policies are created by establishing a 
set of business rules that may prevent an option or enable a component. In this case, the 
reference monitor consists of pages, components, and actual links that are protected. This 
becomes veiy important when a particular user may have the need to know the C Status 
results of its department but not necessarily know a complete history. Therefore, their 
ability to view an entire medical readiness profile is disabled. 

Around this entire security realm shall exists a layer of protection enforced by a 
technology known as Secured Sockets Layer (SSL). The SSL protocol is intended to 
provide a practical, application-layer, widely applicable connection-oriented mechanism 
for Internet client/server communications security. 

L NETWORK RESOURCES AND A DEPLOYMENT SCENARIO 

1. Network Resources 

Tests performed by the Naval Medical Information Management Center 
(NMIMC) have been conducted to determine the effect of adding the traffic generated by 

Readiness Explorer to the existing traffic at the Bethesda National Naval Hospital and its 
remote sites. 

Readiness Explorer was added to the Commercial Network (COMNET) model of 
Bethesda’s communications backbone. Readiness Explorer traffic was generated both at 
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Bethesda and at 28 Bethesda remote sites. The existing traffic at Bethesda was modeled 
as background traffic. 


It was assumed that there would be 1340 Readiness Explorer users at Bethesda 
and a total of 900 users at the remote sites. The assumption was made that the Bethesda 
users will be evenly distributed over 13 Local Area Network (LAN) segments, which 
work out to a total of 102 users per segment. In addition, each of the LAN segments has 
traffic from applications other than Readiness Explorer. The background utilization of 
each LAN segment from this traffic has been determined from an EDS simulation. The 
following table lists the addresses of each of the LAN segments, gives its bandwidth, and 
shows the utilization of each segment allocated to non-Readiness Explorer traffic in the 
simulation: 



Bandwidth 

Utilization Due to Background 
Traffic 

131.158.80 

lOBaseT 

11.09% 

131.158.81 

lOBaseT 

9.76 % 

131.158.82 

lOBaseT 

7.75 % 

131.158.83 

lOBaseT 

0.91 % 

131.158.84 

lOBaseT 

5.90 % 

131.158.85 

lOBaseT 

3.10% 

131.158.86 

lOBaseT 

5.70 % 

131.158.87 

lOBaseT 

0.46 % 

131.158.88 

100BaseT 

9.66% 

131.158.89 

lOBaseT 

0.66 % 

131.158.160 

lOBaseT 

3.94 % 

131.158.161 

100BaseT 

2.86 % 


100BaseT 

1.86% 


Table 4. Non-Readiness Explorer Traffic Utilization 


All the LAN segments used their current bandwidth. The 900 remote users were 
assumed to be evenly distributed across the 28 remote sites. This works out to 
approximately 32 users per site, regardless of the line speed of its access circuit. 
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It was assumed that eveiy Readiness Explorer user would access the application at 
the same rate. This rate was assumed to be once every eight hours for each user 
accessing the system. 

Based upon the demo Readiness Explorer application running on the web site, 
there are three basic types of activities users can access: 

• Adding the profile of a new patient into the database; 

• Searching the database for a patient; 

• Viewing a report. 

It was assumed that users would conduct two types of Readiness Explorer 
sessions. In the first type, a user would log in, input the profile of a new patient, and then 
log out. In the second type, a user would log in, search for a patient, view two reports 
(presumably of that patient), and then log out. It was further assumed that Search and 
Report session (the second type) would occur twice as often as the New Profile session 
(the first type). The following tables the user interactions and the response from 
Readiness Explorer: 


User’s Request 

Host’s Response 

1. URL 

2. Login Screen 

3. Login Data 

4. Home Screen 

5. Profile Request 

6. New Profile Screen 

7. New Profile Data 

8. Profile Listing 

9. Logout 


Table 5. User Interaction anc 

[ Readiness Explorer Response 
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User’s Request 

Host’s Response 

1. URL 

2. Login Screen 

3. Login Data 

4. Home Screen 

5. Search Request 

6. Search Screen 

7. Search Data 

8. Search Results 

9. Report Request 

10. Report List 

11. Specify Report 

12. Report 

13. Report Request 

14. Report List 

15. Specify Report 

16. Report 

17. Logout 



Table 6. Search and Report Session and Readiness Explorer Response 


Whenever possible, message sizes were obtained by determining the size of the 
Readiness Explorer screens from the web site. Report sizes were established from a 
previous government communication system. Other message sizes were estimated. The 
smallest message size assumed was 1000 bytes. 

The following table lists the performance results for the 13 Bethesda LAN 
segments, which contained Readiness Explorer users in the simulation. For each 
segment, the table shows its utilization, both overall and due to Readiness Explorer 
traffic, its collision percentage, and its average and maximum frame transmission delay. 
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ilization 

Segment 

Overall 

Due to Cold Fusion 

131.158.80 

11.2% 

.08 % 

131.158.81 

9.8 % 

.07 % 

131.158.82 

7.8% 

.08 % 

131.158.83 

1.0% 

.07 % 

131.158.84 

7.6 % 

.08 % 

131.158.85 

3.2% 

.07% 

131.158.86 

5.8 % 

.07 % 

131.158.87 

0.5% 

.07 % 

131.158.88 

13.0% 

3.4 % 

131.158.89 

^ 0.7% 

.07 % 

131.158.160 

4.0% 

.08 % 

131.158.161 

2.9% 

.01 % 

131.158.163 1 

1.9 % 

.01% 


Table 7. Performance Results 


All of the segments have low utilization, with very little of the overall utilization 
coming from the Readiness Explorer application. Segment .88, which includes the host, 
has the highest Readiness Explorer utilization at about three and a half percent. The 
collision percentages are low for all segments, except segment .88 where it reaches 17%. 
As for the Wide Area Network (WAN) links, none of their utilization is more than 35%. 

The addition of the Readiness Explorer application would have Tninimum 
on the performance of the LAN segments at Bethesda National Naval Hospital. The 
simulation shows that only the segment connected to the application server has a 
utilization of 13%, where Readiness Explorer contributed only 3.4% of the traffic. 
However, this segment does have around 17% collision rate. WAN links all have 
adequate capacity in support of Readiness Explorer . 

2. Deployment Scenario 

Using an overseas MTF as an example, the first step to deploy Readiness Explorer 

was to understand the technical solution. Because the co mmand was already heavily 
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involved in building an Intranet, and the majority knew how to operate a web browser, 
implementing and using Readiness Explorer would not be a challenge. The coimnand 
imderstood that using a web browser eliminates tedious hours of training, eliminates high 
bandwidth requirements for their remote clinics, and it is virtually available anywhere, 
anytime. 

To precede the laxmch of Readiness Explorer, importing the older data was 
required. Because this data came from many sources such as Excel spreadsheets. Access 
databases, and paper rosters, it was determined that the best method was to start from 
scratch. Therefore the command utilized the Management Information Systems (MIS) 
department classroom, accommodated with eight Personal Computers (PCs), to review 
and enter data from each medical record. Less than an hour of training was provided to 
the Hospital Corpsmen (HMs) from Patient Administration, prior to the mass review and 
update. 

Even this first step provided very useful indicators to the accuracy of the 
command’s corpsmen knowing how to read a health record. After the completion of the 
data entry process, a model consisting of the requirements to satisfy a Cl rating was 
applied. This model, known as the “filtering process”, occurs on a daily basis, registered 
the overall command with a low 32% Cl rating. 

The next step was to establish the Port of Entries or “portals.” The portals were 

defined as Personnel, Immunizations, Laboratory, Physical Examinations and 

Contingency. Each portal was equipped with a 486 PC or above and a web browser. 

This establishment and understanding of the portals is a key concept to the process. Each 

portal must understand their significance in ensuring that immediately after a service is 
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provided that it is entered into Readiness Explorer. Additionally, it is the responsibility 
of the service member to ensure this data is entered as well. 

To place the responsibility back into the hands of the service member and to 
ensure their readiness status is in compliance, utilization of the forecast reports was 
needed and a portal for accessibility. The service member is required to provide their 
SSN, DOB, UIC and Last Name. Because each profile was visually appealing the service 
member could easily identify those items that rated a C2 status. 

In alignment with taking medicine to the deckplate, mass immunizations were 
arranged at each external command. A team of Corpsmen would arrive at the command, 
provide the immunization, and immediately record it in the service member’s profile via 
their web browser. This was the first time that not only was medicine taken to the 
deckplate, but data entry was done on location. This process took minimal time for the 
service member thus reducing their time away from the workforce. If a web browser was 
not available, laptops were provided with the capability of batch processing. 
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V. CONCLUSIONS AND RECOMMENDATIONS 


A. CONCLUSIONS 

In the development of Readiness Explorer, a prototype vk^as implemented at Naval 
Hospital Lemoore with an overwhelming sense of success. The paradigm changes and 
the added functionality were well received. The recommendation is not to deploy 
Readiness Explorer, but to expose the concepts behind it, to take a look at some of the 
most advanced usage of advanced technologies, and to consider the benefits of changes 
and accepting the paradigms of turning data into accurate real-time information. The 
ideas and methodologies presented in this thesis may be easily transferred to existing 
programs and future irmovations. 

An observation is immediately noticeable that can craft Readiness Explorer into a 
portal of information or a thin client. Leaving systems already in place. Readiness 
Explorer can retrieve data from any one system and provide the compiled data to the user 
in one simple page. Furthermore, the data will take advantage of Readiness Explorer’s 
ability to filter through the data and provide accurate real-time C status information. 
Readiness Explorer can also review the data nightly and provide an accurate C status 
rating, and it can look for those records overdue according to the business rules set and 
enforced by the command. 

By providing a dynamic and open structure that can support a multitude of 

platforms, scenarios and environments, and medical readiness requirement may be easily 

recorded and tracked. For example, if a particular platform needs to be readily deployed 

to areas within the African borders, a platform could be created that would accommodate 

all of the required immunizations. Therefore, an accurate list of personnel can be 
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continuously tracked throughout the deployment. Other readiness requirements may also 
be added such as “wills”, financial elements, and educational elements. 

In another scenario, if once deployed the platform or response team may not have 
a real time connection or perhaps only a connection at predetermined times that may not 
allow for real time reporting or updating capabilities. Therefore, batch processing is 
allowed that will allow a set of records to be downloaded to a PC or laptop for viewing 
and updating as necessary. Once a coimection is established, the batch process may be 
uploaded and processed by the server. At the same time, a new set of records may be 
downloaded. 

With respect to reporting, because all of the functionality within Readiness 
Explorer may be delegated, reporting tasks can now become the responsibility of an 
appointee at an external command such that the external command can now retrieve their 
own reports and furthermore, have their information automatically emailed to them on a 
regular basis. 

B. RECOMMENDATIONS 

The following recommendations emphasize the concepts within Readiness 
Explorer that may be integrated into other existing applications or used as a model to 
develop new; 

• Develop Internet platforms that are portable, dynamic, and customizable. 

• Use preexisting and standardized technologies such as XML to store, retrieve, 
and forward information. 

• Provide an interface that is customizable by its users. 
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• Provide components within the application that can interface with other 
components, systems, and applications. This may include incorporating email 
interfaces, calendar functions, and portals to a myriad of information. 

• Delegate reporting tasks and administration tasks to local and external system 
managers. 

• Integrate multimedia technologies to aid the user with help and application 
tours. 

• Enable pattern matching through intensive recording that can dynamically 
present information to its users in the order of usage and make 
recommendations to others. 

• Take advantage of electronic communication technologies that can forward 
information such as alert thresholds to hand held devices such as cell phones 
and pagers, and Personal Digital Assistants (PDAs). 

• Integrate features such as automatic date expirations with deletion to alleviate 
the need to routinely monitor user accounts, and other date sensitive tasks. 

• Continuously interact with the user throughout their usage of the application. 
Error control shall be in place to monitor the user’s action and correct any 
mistakes transparently and record such errors and forward them to the system 
administrator. 

• Provide resources such as documents, white papers, brochures, and links to 
customers via printing on site, or forwarding via email. 


61 



• When running reports, users should be able to create their own reports and 
share them with others. Based off of pattern matching, reports by other users 
should be recommended. 

• Intensify the use of portals to integrate systems, whether legacy or new, into 
one simple interface. 

• Provide an open architecture that allows commands to develop their own code 
and share this code or components with others. This allows the ability to 
extend the baseline of the application to accommodate internal business 
processes and needs. Components may be developed in any type of language 
including HTML, DHTML, Perl, ASP, or ColdFusion. 

• Enable a filtering process as records are retrieved and reports produced that 
dynamically and immediately ensure that the data is rated accordingly to 
readiness standards according to established business rules. 
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APPENDIX A. SAMPLE MEDICAL SYSTEM SURVEY 


TO:_ 

My name is LT Michael Whitecar and I am currently a student at the Naval 
Postgraduate School (NPS) in Monterey, CA., with a concentration in Information 
Systems Management and desire your assistance in the development of my thesis titled 
“The Use of Intelligent Real Time Technologies to Implement, Monitor and Forecast 
Medical Readiness. ” 

The purpose of this research is to capitalize and integrate the use of intelligent real 
time technologies to effectively implement a system to monitor medical readiness 
resources, provide and forecast long-term readiness states, and promote the well being of 
our service members through proactive and interactive services. I realize there may be 
similar systems already developed or in development, thus I would to analyze their 
characteristics. 

It is my understanding, according to the Naval Medical Information Management 
Center (NMIMC) Homepage, that you are the Project Manager or contributing member 

to the_project. Therefore, I would like to take this opportunity to present a set of 

questions relative to_and what it contributes to medical readiness. If your time 

permits, I would truly be grateful for your reply. 

Simply reply to this message by filling in the information below; 

Please choose the system(s) listed below that interface with_and how the 

interface is conducted (i.e. real-time or batch processing)? 


• SPMS n 
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• DMHRS 

• CHCS 

• DEERS 

• DOHRS 

• ITS 

• PHCA 

• Other_ 

Please choose all levels of reporting capabilities: 

• Dependent on trained user, i.e. the use of Business Objects 

• Query By Example (QBE) 

• Structure Query Language (SQL) 

• Menu driven reports 

• User-Defined reports with progr amming required 

• User-Defined reports without programming required 

Can service members retrieve information directly from_? Yes or No 

Is data collected at the site of service or entered in batch mode? Yes or No 

Can_ be customized to accommodate different Areas of Operations or 

platforms without contractual support? Yes or No 

Does_provide a web-based front end? Yes or No 

How is information passed to higher authority, i.e. BUMED? 

• Email fi'om site 

• Email from program manager 

• Higher authority is able to retrieve their own data when they need it 

• Reports are produced, printed and mailed 

• Reports are produced and submitted by electronic transfer (i.e. FTP) 

Thinking in terms of System Administration, what advantages does_offer to 

accommodate ease of maintaining? 

Thanks very much for your time. 

/r Mike Whitecar 
LT Michael Whitecar 
Naval Postgraduate School 
Monterey, CA 
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APPENDIX B. CONFIGURATION DATABASE DATA 

DICTIONARY 


TABLE: tblColorElements 

DEFINITION: Color elements are used in part to define the display of Cascade 
Style Sheet. 


NAME 

TYPE 

SIZE 

colorElementsID 

Long Integer 

4 

ceLabel 

Text 

50 

celD 

Text 

50 

ceValueName 

Text 

50 

ceCSSName 

Text 

50 

ceDefaultValue 

Text 

6 

TABLE: tblColorGroups 

DEFINITION: Used to identify specific 
scheme. 

components and their related color 

NAME 

TYPE 

SIZE 

colorGroupID 

Long Integer 

4 

cgTitle 

Text 

30 

TABLE: tblColor 

DEFINITION: A complete list of colors and their appropriate HEX code. 


NAME 

TYPE 

SIZE 

colorid 

Long Integer 

4 

color 

Text 

30 

colorcode 

Text 

10 

TABLE: tblErrors 

DEFINITION: Tracks each error and specific details. 


NAME 

TYPE 

SIZE 

errorid 

Long Integer 

4 

detail 

Memo 

- 

message 

Memo 

- 

NavtiveErrorCode 

Text 

10 

SQLState 

Text 

10 

Type 

Text 

30 

dateTimeofError 

Date/Time 

8 

error_user 

Text 

20 

error_ip 

Text 

15 


65 



TABLE; tblFeedback 

DEFINITION: Tracks user feedback when errors occur. 


NAME 

TYPE 

SIZE 

feedbackid 

Long Integer 

4 

feedback 

Memo 

- 

type 

Text 

10 

comments_by_admin 

Memo 


dateSubmitted 

Date/Time 

s 

ip 

Text 

15 

user 

Text 

20 

cargo 

Text 

30 

TABLE; tblForumBody 

DEFINITION; Tracks messages of forum discussions. 


NAME 

TYPE 

SIZE 

forumBodylD 

Long Integer 

4 

forumHeader_ID 

Long Integer 

4 

body 

Memo 

- 


TABLE: tblForumHeaders 

DEFINITION; Tracks specifics of forum discussions. 


NAME 

TYPE 

SIZE 

forumHeader_id 

Long Integer 

4 

forumid 

Long Integer 

4 

datein 

Date/Time 

8 

thread 

Long Integer 

4 

parent 

Long Integer 

4 

author 

Text 

64 

subject 

Text 

128 

email 

Text 

64 

host 

Text 

64 

email_reply 

Text 

10 

TABLE: tblForums 

DEFINITION: Initiates forum discussions. 

NAME 

TYPE 

SIZE 

forumid 

Long Integer 

4 

name 

Text 

60 

collapse 

Text 

1 

createdBy 

Text 

15 

dateCreated 

Date/Time 

8 
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TABLE: tblInterface_ODBC 
DEFINITION: Create an ODBC interface 


NAME 

TYPE 

SIZE 

interface_odbc_id 

Long Integer 

4 

ioname 

Text 

30 

iodescription 

Memo 

- 

ioodbc 

Text 

40 

iotable 

Text 

30 

io_linkedField 

Text 

30 

ioread 

Yes/No 

1 

iowrite 

Yes/No 

1 

ioisLocal 

Yes/No 

1 

io_server 

Text 

50 

io_server_port 

Text 

5 

io_server_login 

Text 

20 

io_server_password 

Text 

20 

TABLE: tbllnterfaceFieldMaps 

DEFINITION: Tracks fields from interfaces to actual tables within application. 

NAME 

TYPE 

SIZE 

fieldMap_ID 

Long Integer 

4 

pf_id 

Long Integer 

4 

interfaceid 

Long Integer 

4 

fieldMap_Name 

Text 

50 

TABLE: tblLinkColorToGroup 

DEFINITION: Links color elements to application group 


NAME 

TYPE 

SIZE 

ColorElementsToGroups_ID 

Long Integer 

4 

ColorGroupID 

Long Integer 

4 

ColorlD 

Long Integer 

4 

TABLE: tblLinkFieldToProfile 

DEFINITION: Links dynamic fields to profiles 


NAME 

TYPE 

SIZE 

linkFieldToProfile_ID 

Long Integer 

4 

pg_id 

Long Integer 

4 

pf_id 

Long Integer 

4 


67 




TABLE; tbU^inkOptionsToPage 

DEFINITION; Links page options to specific web pages. 


NAME 

TYPE 

SIZE 

linkOptionsToPage_E) 

Long Integer 

4 

poiid 

Long Integer 

4 

poid 

Long Integer 

4 

TABLE; tblOperators 

DEFENTTION; A list of operators used for creating business rules. 


NAME 

TYPE 

SIZE 

operatorid 

Long Integer 

4 

operator_symbol 

Text 

10 

operator_text 

Text 

30 

operatortype 

Text 

10 


TABLE; tbIPageOptionItems 
DEFINITION; Links specific options to pages. 


NAME 

TYPE 

SIZE 

poiid 

Long Integer 

4 

poi_URL 

Text 

100 

poi_title 

Text 

75 

poitext 

Memo 

- 

TABLE; tbIPageOptions 

DEFINITION; A list of page options to assign. 


NAME 

TYPE 

SIZE 

poid 

Long Integer 

4 

poname 

Text 

20 

po_colunms 

Byte 

1 

po_showText 

Yes/No 

1 

TABLE; tblPanelComponents 
DEFINITION; A list of panel components. 

NAME 

TYPE 

SIZE 

panelComponentID 

Long Integer 

4 

pcTitle 

Text 

30 

pcOption 

Byte 

1 

pcFileName 

Text 

30 

pcLink 

Text 

75 

pcinline 

Memo 

_ 
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TABLE: tblProfileFields 
DEFJNETION: Tracks fields for each profile. 


NAME 

TYPE 

SIZE 

pf_id 

Long Integer 

4 

pfName 

Text 

30 

pfLabel 

Text 

30 

pfSize 

Byte 

1 

pfDescription 

Memo 

- 

pfCstatus 

Byte 

1 

pfType 

Byte 

1 

pfFailColor 

Text 

10 

pfiEncrypt 

Yes/No 

1 

pfIncludelnSearch 

Yes/No 

1 

pffequiredField 

Yes/No 

1 

pfRange 

Text 

10 

pfValidationType 

Long Integer 

4 

pfHelpMessage 

Text 

75 

pfHelpSummaiy 

Memo 

- 

pfhasinterface 

Yes/No 

1 

pfinterfaceName 

Text 

30 

TABLE: tblProfileGroups 

DEFINITION: Tracks specific information relative to each profile. 


NAME 

TYPE 

SIZE 

pgjd 

Long Integer 

4 

p^ame 

Text 

20 

pgDescription 

Memo 

- 

pgLabel 

Text 

30 

pgLayoutType 

Byte 

1 

pgLayoutCols 

Byte 

1 

pgOrderBy 

Text 

10 

TABLE: tblProfileRules 

DEFINITION: Tracks specific information relative to each business rule within i 
profile. 

NAME 

TYPE 

SIZE 

prid 

Long Integer 

4 

prname 

Text 

50 

pr_description 

Memo 

- 

prrule 

Memo 

- 
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TABLE: tblReportOptions 

DEFINITION: Tracks specific information relative to options within each report. 


NAME 

TYPE 

SIZE 

reportOptionID 

Long Integer 

4 

reportji) 

Long Integer 

4 

optionsText 

Text 

15 

optionsURL 

Text 

150 

optionsAccess 

Text 

2 

optionsimage 

Text 

50 

TABLE: tblReports 

DEFINITION: Tracks specific information relative each report. 


NAME 

TYPE 

SIZE 

report_ID 

Long Integer 

4 

reportName 

Text 

75 

reportDescription 

Memo 


shortName 

Text 

20 

includeToDate 

Yes/No 

1 

includeFromDate 

Yes/No 

1 

includeFieldList 

Yes/No 

1 

includeMonthAsString 

Yes/No 

1 

includeMonthCoimt 

Yes/No 

1 

includeQuery 

Yes/No 

1 

sqlQuery 

Memo 


sqlBody 

Memo 


accessLevel 

Text 

2 

whoCreated 

Text 

15 

dateCreated 

Date/Time 

8 

queiyDisplay 

Text 

30 

queryValue 

Text 

20 

includeList 

Yes/No 

1 

listDisplay 

Text 

30 

listValue 

Text 

20 

idField 

Text 

20 

isGlobal 

Yes/No 

1 

queiyField 

Text 

20 

orderField 

Text 

20 

usedataSource 

Text 

10 
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TABLE; tblSummary 

DEFINITION; Contains list of help summaries. 


NAME 

summaryJDD 

shortName 

summary 


TYPE 

Long Integer 

Text 

Memo 


SIZE 

4 

20 
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APPENDIX C. USER DATABASE DATA DICTIONARY 


TABLE: cData 

DEFINITION; Specifically used by ColdFusion. 


NAME 

TYPE 

SIZE 

cfid 

Text 

20 

app 

Text 

64 

dat 

Memo 

- 

TABLE; cgGlobal 

DEFTNl’l'lON; Specifically used for ColdFusion. 


NAME 

TYPE 

SIZE 

cfid 

Text 

20 

data 

Memo 

- 

Ivisit 

TABLE; tblGroups 

DEFINITION: User groups 

Date/Time 

8 

NAME 

TYPE 

SIZE 

usergroupid 

Long Integer 

4 

ugname 

Text 

20 

ug description 

Text 

50 

ugaccess 

Text 

15 

TABLE; tbIMyAddressBook 

DEFINITION; User’s personal Address Book 


NAME 

TYPE 

SIZE 

myAddressBookID 

Long Integer 

4 

userid 

Long Integer 

4 

cFname 

Text 

30 

cLname 

Text 

30 

cRank 

Text 

10 

cTitle 

Text 

50 

cOrganization 

Text 

40 

cHomepage 

Text 

75 

cEmailAddress 

Text 

75 

pPhone 

Text 

30 

pFax 

Text 

20 

pCellPhone 

Text 

20 

pPager 

Text 

30 

dNotes 

Memo 
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TABLE: tblMyBookMarks 
DEFINITION: User’s personal bookmarks. 


NAME 

TYPE 

SIZE 

myBookmarkid 

Long Integer 

4 

userid 

Long Integer 

4 

bmLabel 

Text 

20 

bmMessage 

Text 

50 

bmURL 

Text 

75 

newWindow 

Byte 

1 


TABLE: tblMyDesktop 
DEFINITION: User’s desktop preferences. 


NAME 

TYPE 

SIZE 

myDesktopID 

Long Integer 

4 

user_id 

Long Integer 

4 

panelStatus 

Yes/No 

1 

homepage 

Text 

75 

panelDisplay 

Text 

50 

dateDisplay 

Text 

50 

deskTop 

Text 

30 

TABLE: tblMyEmail 

DEFINITION: User’s personal email. 

NAME 

TYPE 

SIZE 

myEmaillD 

Long Integer 

4 

userid 

Long Integer 

4 

myEmailSetup_id 

Long Integer 

4 

emailTo 

Text 

75 

emailFrom 

Text 

75 

emailSubject 

Text 

75 

emailReplyTo 

Text 

75 

emailNumber 

Long Integer 

4 

emailHeader 

Memo 


emailDate 

Text 

30 

emailCC 

Memo 

«i 

emailAttachments 

Memo 


emailAttachFiles 

Memo 


emailMessage 

Memo 

_ 
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TABLE: tblMyEmailSetup 

DEFINITION: User’s personal email configuration. 


NAME 

myEmailSetup_ID 

userid 

emailTitle 

userName 

userOrganization 

userEmailAddress 

userReplyEmailAddress 

popAddress 

popAddressPort 

smtpAddress 

smtpAddressPort 

accountName 

accoimtPassword 

rememberPassword 

deleteOnServer 

timeOut 

setAsDefault 

TABLE: tblMyEmailTrash 
DEFINITION: User’s personal email 

NAME 

myEmailTrashID 

userid 

myEmailSetup_id 

emailTo 

emailFrom 

emailSubject 

emailReplyTo 

emailNumber 

emailHeader 

emailDate 

emailCC 

emailAttachments 

emailAttachFiles 

emailMessage 


TYPE SIZE 

Long Integer 4 

Long Integer 4 

Text 30 

Text 50 

Text 50 

Text 75 

Text 75 

Text 50 

Byte 1 

Text 50 

Byte 1 

Text 30 

Text 20 

Yes/No 1 

Yes/No 1 

Integer 2 

Yes/No 1 


TYPE SIZE 

Long Integer 4 

Long Integer 4 

Long Integer 4 

Text 75 

Text 75 

Text 75 

Text 75 

Long Integer 4 

Memo 

Text 30 

Memo 

Memo 

Memo 

Memo 
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TABLE: tblMyPanelComponents 
DEFINITION: User’s personal panel components. 


NAME 

TYPE 

SIZE 

myPanelComponents_ID 

Long Integer 

4 

panelComponentJDD 

Long Integer 

4 

user_id 

Long Integer 

4 

TABLE: tblMySecurity 

DEFINITION: User’s personal security preferences. 


NAME 

TYPE 

SIZE 

mySecurity_id 

Long Integer 

4 

userid 

Long Integer 

4 

rememberLogin 

Yes/No 

I 

autoPassword 

Yes/No 

1 

absentFrom 

Date/Time 

8 

absentTo 

Date/Time 

8 

absentPreventLogon 

Yes/No 

1 

emailAuditTrail 

Yes/No 

1 

emailAuditTrailWhen 

B5^e 

1 

emailAdminChanges 

Yes/No 

1 

TABLE: tblMyToolbar 

DEFINITION: User’s personal toolbar settings. 


NAME 

TYPE 

SIZE 

mytoolBarid 

Long Integer 

4 

user_id 

Long Integer 

4 

tbLabell 

Text 

20 

tbMessagel 

Text 

50 

tbURLl 

Text 

75 

newWindowl 

Byte 

1 

tbLabel2 

Text 

20 

tbMessage2 

Text 

50 

tbURL2 

Text 

75 

newWindow2 

Byte 

1 

tbLabelS 

Text 

20 

tbMessageS 

Text 

50 

tbURLS 

Text 

75 

newWindowS 

Byte 

1 

tbLabel4 

Text 

20 

tbMessage4 

Text 

50 

tbURL4 

Text 

75 

newWindow4 

Byte 

1 

tbLabel5 

Text 

20 
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tbMessageS 

tbURL5 

newWindowS 

TABLE: tblUserAccounts 
DEFINITION; User Accounts. 

NAME 

user_id 

Iname 

fhame 

rank 

ssn 

phone 

email 

command 

userloginid 

user_password 

password_change 

access 

expire 

template 

lastlogon 

login_attempts 

force_password 

locked 

panelStatus 

homepage 

panelDisplay 

dateDisplay 

deskTop 


Text 

50 

Text 

75 

Byte 

1 


TYPE 

SIZE 

Long Integer 

4 

Text 

30 

Text 

30 

Text 

10 

Text 

4 

Text 

15 

Text 

75 

Text 

30 

Text 

15 

Text 

10 

Date/Time 

8 

Text 

15 

Date/Time 

8 

Text 

20 

Date/Time 

8 

Byte 

1 

Yes/No 

1 

Yes/No 

1 

Yes/No 

1 

Text 

75 

Text 

50 

Text 

50 

Text 

30 
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APPENDIX D. FILE STRUCTURE 


The following tables list each of the required files with a definition relative to 
their role within Readiness Explorer. ColdFusion processes files with a “CFM” 
extension, “JS” contains JavaScript Code, “CFG” contain configuration items, and 
“HTM” are standard HTML files. 


CATEGORY/FILENAME 

DEFINITION 

ADD-INS 

Using the open architecture concept, 
these files are developed using 
ColdFusion and are simple “add-ins” 
that support the underlying 

infrastructure. 


ADDINPANEL.CFM 

ADDINSEARCH.CFM 

ADDINTABS.CFM 

ADDINTOOLBAR.CFM 

Add-in that supports the User’s side 
panel. 

Support search engine that is displayed 
at the top left of every page. 

Controls and manages the display of 
tabs. 

Controls and manages the display of the 
toolbar. 


OPEN-ARCHITECTURE DESIGN 

These set of files support the actual 
development of the application using 
scripts to create how such objects as tabs 
are set up. 


ADMDSl.CFM Main file for developing the application 

and dynamically changing components. 
This file acts as a frame set that calls 
other files. 


ADMINADDNEWPAGE.CFM 

ADMINHELPBODY.CFM 

ADMINHELPFOOTER.CFM 

ADMINHELPHEADERLEFT.CFM 


Adds a new page (i.e. tabbed page) 

Displays help information relative to the 
body function of designing a page. 

Displays help information relative to the 
footer function of designing a page. 

Displavs help information relative to the 
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ADMINHELPHEADERRIGHT.CFM 

ADMINHELPPANEL.CFM 

ADMINHELPTABS.CFM 

ADMINHELPTOOLBAR.CFM 

ADMINPAGEOPTIONS-CTM 

ADMINUPDATEPAGE.CFM 

ADMINWRITECONFIG.CFM 

BLANK-HTM 


left side of the header function of 
designing a page. 

Displays help information relative to the 
right side of the header function of 
designing a page. 

Displays help information relative to the 
Panel function of designing a page. 

Displays help information relative to the 
tabs function of designing a page. 

Displays help information relative to the 
body function of designing a page. 

Displays the available options when 
creating a page. 

Updates the XML configuration file for 
each change or addition. 

Write the actual configuration to disk. 
Simply a placeholder. 


The System Administration group 
includes the files that make up tasks 
including some of the underlying 
dynamic development processes such as 
creating readiness profiles, 

SYSTEM ADMINISTRATION 

NOTE: Many of the files contain the 
“list” key word. Although these file 
allow interaction, the default action is to 
display a record set of the configurable 
_ items. _ 

ADMINLISTINTERFACES.CFM Provides the ability to create interfaces 

such as ODBC or FTP transactions. 


ADMINLISTPANELCOMPONENTS.CFM 

ADMINLISTPROFILEFIELDS.CFM 

ADMINLISTPROFILEFIELDSRULES.CFM 

ADMINLISTPROFILES.CFM 

ADMINLISTREPORTOPTIONS.CFM 

ADMINLISTREPORTS.CFM 


Manages Panel Components. 

Manages the fields that are dynamically 
created and attached to groups. 

Manages the business rules for each 
dynamically created field. 

Manages the profiles. 

Manages report options such as edit and 
deleting reports. 

Manages reports. 
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ADMINLISTSUMMARY.CFM 

ADMINLISTUSERGROUPS.CFM 

ADMINLISTUSERS.CFM 

ADMINSECURITYCONnGURATION.CFM 

ADMDSrCONFIGURATION.CFM 

ADMMWRITELOGON.CFM 


Manages help summary for each page. 
Manages user groups. 

Manages users. 

Manages security information and 
provides an interface to the creation of 
security profiles. 

Provides initial set of requirements for 
Readiness Explorer to execute. 

Writes the logon screen as information 
changes relative to the administration of 
the application. 



PANEL COMPONENTS 

The panel component files are simply a 
collection of user-defined files that may 
be used within the user’s panel. 

COMPSENDINSTANTEMAIL.CFM 

Send instant email via panel. 

COMPSTOCKGRABBER.CFM 

Retrieve and organize stock quotes 
within panel. 


JAVASCRIPT FILES 

These files hold JavaScript code that can 
be shared among multiple files. 


COOKIES.JS Contains functions for cookie 

operations. 

WDDX.JS Contains functions for WDDX/XML 

functions. This file mainly converts 
XML data to JavaScript objects. 


RE2001.JS Contains basic simple functions such as 

setStatus that display information in the 
status bar. 


Get Information files are small routines 
GET INFORMATION that can quickly retrieve information in 

_ order to support other running processes. 

GETCONTENT.CFM Get application content information. 

GETGREETING.CFM Get user-greeting information, like 

“Good Afternoon.” 


GETINFORMATION.CFM 

GETMESSAGE.CFM 

GETPAGECOMMENTS.CFM 


Get general application information. 
Get a message from email. 

Get page comments. 
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GETPROGRAMDEFAULTS.CFM 

GETSECURITY.CFM 

GETSTRUCTURE.CFM 

GETSTYLE.CFM 

GETUSERINFORMATION.CFM 


Get program defaults such as directories, 
command name and system 
administrator information. 

Get security information relative to both 
user and application. 

Get application structure. 

Get CSS information. 

Get user information. 


USER FILES 


MYACCOUNT.CFM 


MYADDRESSBOOK.CFM 

MYBOOKMARKS.CFM 

MYCALENDAR.CFM 

MYCOLORS.CFM 


MYEMAIL.CFM 

MYEMAILSETUP.CFM 

MYINFORMATION.CFM 

MYPANIEL.CFM 

MYREMINDERS.HTM 

MYSECURITY.CFM 


MYTOOLBAR.CFM 


User files are used to address their 
personalization options within Readiness 
Explorer. _ 

Interface for user to be able to modify 
some of their account information such 
as password and demographics. 

Personal address book. 

Personal bookmarks. 

Personal calendar. 

Provides an interface for user to be able 
to change the colors of Readiness 
Explorer and share with other users. 

Personal email accoimt management. 

Personal email account set up. 

Displays a list of user personalization 
options. 

Personal panel options. 

Personal reminders. 

Provides an interface for the user to 
enter specific security requirements 
about their account while they may be in 
absence. 

Personal toolbar. 


TABBED PAGES 


Tabbed pages are simply easy methods 
of organizing data. These pages are! 
created dynamically and simply point to 
specific pages relative to the tab._ 


PAGEADMIN.CFM 

PAGEERROR.CFM 
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Administration tab. 

Error page that is displaved under the 





PAGEFEEDBACK.CFM 

PAGEFORUMS.CFM 

PAGEHELP.CFM 

PAGEHOME.CFM 

PAGELOGOFF.CFM 


PAGEPERSONALIZE.CFM 

PAGEPROFILES.CFM 

PAGETOOLS.CFM 


help tab. Also, provides an option for 
the user to send feedback to the system 
administrator. 

Provides application feedback under the 
Help tab. 

Provides an interface to the forums 
under the Resource tab. 

Help tab. 

Home tab. 

Logoff page that is not actually 
displayed but deletes all Session 
variables and logs user off of 
application. 

User personalization page under the 
myAccounts tab. 

Profiles tab. 

Tools tab. 



SET INFORMATION FILES 

These files are designed to quickly and 
efficiently update information. 

SETUSERINFORMATION.CFM 

Sets user information. 


SUBROUTINES 

These files are subroutines that are 
called by other files for simple 
processes. 


SRADDBODYOPTION.CFM 

SRCREATEBODYOPTION.CFM 

SRDIALOGWINDOW.CFM 

SRERRORMONITOR.CFM 

SRFEEDBACK.CFM 

SRLINKFINDER.CFM 

SRLISTFORUMTHREADS.CFM 

SRMESSAGECONVERT.CFM 

SRPAGEOPTIONS.CFM 

SRREPORTENGINE.CFM 


Supports adding body link elements to a 
page. 

Creates links in a page. 

Creates a dialog window. 

Supports error management. 

Supports providing feedback to user. 

Turns links in email messages to active 
links. 

Lists forum threads. 

Converts forum message to HTML 
formatting. 

Supports adding pages. 

Supports the creation and production of 
reports. 
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SRSTOCKGRABBER.CFM 


Supports the Stock Grabber panel 


SRWINTAB.CFM 

SRHELPSUMMARY.CFM 

component. 

Creates a dialog, tabbed window. 

Supports the display and updating of 
help summaries. 




INFRASTRUCTURE FILES 

Infrastructure files support 
xmderlying layers of the application. 

die 

SUBHEADER.CFM 

Provides framework support for 
Header section. 

the 


Provides framework support for the 
Panel section. 

Provides framework support for the 
Tabbed section. 


SUBPANEL.CFM 

SUBTABS.CFM 

SUBTOOLBAR.CFM 

SUBFOOTER.CFM 

SUBBODY.CFM 

COMPONENT_DECLARE.CFM 

COMPONENTPREPARE.CFM 

APPLICATION.CFM 

COMPONENT.CFG 

DESKTOP.CFG 

INDEX.HTM 

MAIN.CFM 


Provides framework support for the 

Toolbar section. 

Provides framework support for the 

Footer section. 

Provides framework support for the 

Body section. 

Used to declare XMLAVDDX packets 
and create the structure that supports 
each section of the application. 

Prepares and initializes the supporting 
structure. 

A ColdFusion specific file is ran each 
time another CFM file is called. This is 
where the Security Reference Monitor is 
placed. 

Used to store configuration information. 

Used to store configuration information 
relative to user desktop preferences. 

The first file user enters which is the 
logon screen. This has to be an HTML 
file as ColdFusion cannot yet process 
because it will try to call the 
application, cfin file, which will request 
information from the logon process. 

The actual main file that acts as a 
framework for all of the parts and 
sections. 
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APPENDIX E. SOURCE CODE 


This appendix contains all of the source code of Readiness Explorer that has been 
wntten in ColdFusion using the development environment ColdFusion Studio. Sharing 
ColdFusion programs and procedures is common practice among programmers, 
therefore, code that has been written by someone else is stated as so. 

1. ADD-IN FILES 
ADDINPANEL.CFM 

<STYLE TYPE="text/css”> 

A.editPanel:link 

{ 

color: blue; 
text-decoration: none; 
font-size: lOpt; 
font-weight: bold; 

} 

A.editPanel:active 

{ 

color: blue; 
text-decoration: none; 
font-size: lOpt; 
font-weight: bold; 

} 

A.editPanel:visited 

{ 

color: blue; 
text-decoration: none; 
font-size: lOpt; 
font-weight: bold; 

} 

A.editPanel:hover 

{ 

color: blue; 

text-decoration: underline; 
font-size: lOpt; 

} 

</STYLE> 

<CFQUERY NAME="getUserPanelContent" 

DATASOURCE="#VARIABLES. gvDATASOURCE_USER#”> 

SELECT panelCoinponent_ID 

FROM tblMyPanelCoiaponents 


85 



WHERE user_id = #SESSION.user_id# 

</CFQUERY> 

<CFQUERY NAME="getPanelContent" 

DATASOURCE="#VARIABLES.gvDATASOURCE CONFIG#"> 

SELECT * 

FROM tblPanelComponents 
WHERE 0=0 AND 

<CFIF #getUserPanelContent.RecordCount# NEQ 0> 
panelComponent_ID IN ( #ValueList( 
getUserPanelContent.panelComponent ID )# ) 

<CFELSE> 

pcTitle = 'Add Components’ 

</CFIF> 

ORDER BY pcTitle 
</CFQUERY> 

<TABLE WIDTH="100%" BORDER="0" CELLPADDING="0" CELLSPACING="0"> 

<!-LEFT PANEL TITLE-> 

<TR> 

<CFOUTPUT> 

<TD CLASS="panelTitleRaised" ALIGN="center">#DateFormat( Now(),'d mmmm 
yyyy' )#</td> 

<TD ALIGN="center" VALIGN="middle"><A HREF="#CGI.path info#?#Replace( 
CGI•query_string,'showPanel=true', 'showPanel=false' )##Iif( 

CGI.query_string DOES NOT CONTAIN 'showPanel', De ( '&showPanel=false' 
),De( '' ) )##Iif( CGI.guery_string DOES NOT CONTAIN 
'updateUser=panel',De( '&updateUser=panel' ),De( ’’ ) )#"><IMG 
SRC— #VARIABLES.gvIMAGE_DIRECTORY#hidePanel.gif" BORDER=0 ALT="Click to 
Hide Panel"></A></TD> 

</CFOUTPUT> 

</TR> 

<! PREPARE TO DISPLAY LEFT PANEL SUB-TITLES AND CONTENTS _> 

<TR> 

<TD CLASS=''panelBackground" ALIGN="center" VALIGN="top" COLSPAN=2> 

<!-ACTUAL SUB-TITLES AND CONTENTS-> 

<TABLE WIDTH="125'’ BORDER="0'' CELLPADDING=''2" CELLSPACING="0”> 

<!- SUB-TITLE DIVIDER -> 

<TR> 

<TD COLSPAN="2” HEIGHT="5”></TD> 

</TR> 

<CFOUTPUT QUERY="getPanelContent"> 

<!-SUB-TITLE TWO-> 

<TR> 

<!— title —> 

<TD CLASS="panelComponentRaised" COLSPAN=2>#pcTitle#</TD> 

</TR> 

<TR> 

<TD COLSPAN="2" HEIGHT="3"></TD> 

</TR> 
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<TR> 

<TD CLASS="panelComponentBody" C0LSPAN="2"> 

<!- body of component -> 

<CF_getContent 

TYPE="#Iif( pcOption EQ l,De( 'file' ),De( lif( pcOption EQ 2,De( 'url' 
),De( 'inline' ) ) ) )#" 

FILE="#pcFileName#" 

URL="#pcLink#" 

INLINE="#pcInline#" 

> 

<!-end body of component-> 

</TD> 

</TR> 

</CFOUTPUT> 

<CFIF IgetUserPanelContent.RecordCount# NEQ 0> 

<TR> 

<TD CLASS=''panelComponentBody" COLSPAN="2" ALIGN=''center"> 

<HR SIZE=1 WIDTH=75%> 

<A CLASS='’editPanel" HREF="main.cfm?a=myAccount&body=myPanel.cfm">Edit 
Panel.. .</A> 

</TD> 

</TR> 

</CFIF> 

<TR> 

<TD CLASS="panelComponentBody" COLSPAN="2'' ALIGN="center"> 

<HR SIZE=1 WIDTH=75%> 

<A CLASS="editPanel" 

HREF="main.cfm?a=tools&body=adminListPanelComponents.cfm">Edit 
Components...</A> 

</TD> 

</TR> 

<!-END ACTUAL SUB-TITLES AND CONTENTS-> 

</TABLE> 

</TD> 

</TR> 

</TABLE> 

ADDINSEARCH.CFM 


<STYLE TYPE="text/css"> 

TD.s earchBody 

{ 

font: 12px Tahoma, Verdana, Arial; 
} 

.searchEdit 

{ 

background-color: #FFFFFF; 
font: lOpt Tahoma, Verdana, Arial; 
border: Ipx solid blue; 
padding: 3px; 
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width: 180px; 
height: 22px; 

} 

A.searchLink:link 

{ 

color: blue; 
text-decoration: none; 
font-size: lOpt; 
font-weight: bold; 

} 

A. searchLink:active 

{ 

color: blue; 
text-decoration: none; 
font-size: lOpt; 
font-weight: bold; 

} 

A. searchLink:visited 

{ 

color: blue; 
text-decoration: none; 
font-size: lOpt; 
font-weight: bold; 

} 

A. searchLink:hover 

{ 

color: blue; 

text-decoration: underline; 
font-size: lOpt; 

} 

</STYLE> 


<CFFORM ACTION="addInSearch.cfm"> 
<TABLE BORDER=0 WIDTH=100%> 


<TR> 

<TD VALIGN="bottom" ALIGN="right"><IMG SRC="images/google.gif” BORDER=0 
ALT="Google Search”></TD> 

VALIGN= "middle "X input CLASS="searchEdit" TYPE="text" 

NAME="googleSearch">&nbsp;<A CLASS="searchLink" 

HREF="addInSearch.cfm">Search</A></TD> 

</TR> 

<TR> 

<TD>&nbsp;</TD> 

<TD CLASS="searchBody"VALIGN="bottom"><CFINPUT TYPE="radio" 

NAME="searchWhat" VALUE=”re" CHECKED="true”>Readiness 

Explorer&nbsp;OR&nbsp;<CFINPUT TYPE="radio" NAME="searchWhat" 

VALUE="internet">the lnternet</TD> 

</TR> 


</TABLE> 
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</CFFORM> 

ADDINTABSCFM 


<CFINCLUDE TEMPLATE="getStructure.cfia"> 

<TABLE BORDER=0 CELLPADDING=0 CELLSPAGING=0> 

<TR> 

<CFLOOP INDEX="counter" FROM="l" TO="#ArrayLen( aComponent )#"> 

<! - show beginning tab -> 

<CFIF counter EQ 1> 

<CFOUTPUT> 

<TD CLASS="#Iif( URL.alD EQ l,De( 'mainTabSelected' )/De{ 

'mainTabUnSelected' ) )#" ALIGN="right" VALIGN="bottoni”><IMG 

SRC="#VARIABLES.gvIMAGE_DIRECTORY#tab_left_side.gif" BORDER="0"></TD> 

<TD CLASS="#Iif{ URL.alD EQ l,De( 'mainTabSelected' ),De{ 

'mainTabUnSelected' ) )#" ALIGN="right" 

VALIGN="middle">&nbsp;&nbsp;&nbsp;<A CLASS="mainTab" 

HREF="main.cfm?aID=#counter#">#aComponent[counter][cAPPLICATION][cAPPLI 
CATION_NAME]#</A>&nbsp;&nbsp;&nbsp;</TD> 

<TD CLASS="#Iif( URL.alD EQ l,De( 'mainTabSelected' );De( 

'mainTabUnSelected' ) )#" ALIGN="left" VAlIGN="bottom"><IMG SRC="#Iif( 
URL.alD EQ l,De( VARIABLES.gvIMAGE_DIRECTORY & 'tab_right_select.gif' 

),De{ VARIABLES.gvIMAGE_DIRECTORY & 'tab_right unselect.gif' ) )#" 

. BORDER="0"></TD> “ 

</CFOUTPUT> 

<!-show ending tab-> 

<CFELSEIF counter EQ #ArrayLen( aCOMPONENT )#> 

<CFOUTPUT> 

<TD CLASS="#Iif( URL.alD EQ ArrayLen( 

'mainTabSelected' ),De( 'mainTabUnSelected' ) 

VALIGN= "bottom" XIMG 

SRC="#VARIABLES.gvIMAGE_DIRECTORY#tab_left_side.gif" 

<TD CLASS="#Iif( URL.alD EQ ArrayLen{ 

'mainTabSelected' ),De( 'mainTabUnSelected' ) 

VALIGN="middle">&nbsp;&nbsp;&nbsp;<A 
HREF="main.cfm?aID=#counter#">#aComponent[counter][cAPPLICATION][cAPPLI 
CATION_NAME]#</A>&nbsp;Snbsp;&nbsp;</TD> 

<TD CLASS="#Iif( URL.alD EQ ArrayLen( aCOMPONENT ),De( 

'mainTabSelected' ),De( 'mainTabUnSelected' ) )#" ALIGN="left" 

VALIGN="bottom"><IMG 

SRC="#VARIABLES.gvIMAGE_DIRECTORY#tab_last_right unselect.gif" 
BORDER="0"></TD> 

</CFOUTPUT> 

<!-show middle tab-> 

<CFELSE> 

<CFOUTPUT> 

<TD CLASS="#Iif( URL.alD EQ counter,De( 'mainTabSelected' ),De( 
'mainTabUnSelected' ) )#" ALIGN="right" VALIGN="bottom"><IMG 

SRC="#VARIABLES.gv'IMAGE_DIRECTORY#tab_left_side.gif" BORDER="0"></TD> 
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aCOMPONENT ),De( 
) #" ALIGN="right" 

BORDER="0"></TD> 
aCOMPONENT ),De( 

) #" ALIGN="right" 
CLASS="mainTab" 



<TD C]^S-"#Iif( URL.alD EQ counter,De( 'mainTabSelected' ),De( 

'mainTabUnSelected' ) ) #« AT TrM='> • 

^ CLASS=";aS“~ 

EF inain.cfm.aID-#counter#">#aComponent[counter][cAPPLICATION][cAPPLI 
CATION_NAME]#</A>&nbsp;&nbsp;&nbsp;</TD> 

<TD^ CLASS="#Iif( URL.alD EQ counter,De( 'mainTabSelected' ),De{ 

mainTabUnSelected' ) ) #•' ALIGN="left" VALIGN="bottom"><lMG SRC="#Iif( 
URL.alD EQ counter,De{ VARIABLES.gvIMAGE_DIRECTORY & 

tabright_select.gif' ),De{ VARIABLES.gvIMAGE DIRECTORY & 

tab_right_unselect.gif' ) )#" BORDER="0"></TD> ~ 

</CFOUTPUT> 


</CFIF> 


</CFLOOP> 

</TR> 

</TABLE> 


ADDINTOOLBAR.CFM 


<CFINCLUDE TEMPLATE="getUserInformation.cfm"> 

<CFQUERY NAME="getToolBar" UATASOURCE="#VARIABLES.gvDATASOURCE USER#"> 

SELECT * 

FROM tblMyToolbar 

WHERE user_id = #getUserInformation.user_id# 

</CFQUERY> 

<CFIF getToolBar.RecordCount EQ 0> 

<CFSET VARIABLES.myToolBar = "Customize my toolbar..."> 

<CFSET VARIABLES.myToolBarLinks = 

"main.cfm?a=myAccount&body=myToolbar.cfm"> 

<CFELSE> 


<CFSET VARIABLES.myToolBar = ""> 

<CFSET VARIABLES.myToolBarLinks = ""> 
<CFSET VARIABLES.myToolBarTarget = ""> 
<CFLOOP INDEX="counter" FROM="l" TO="5"> 


<CFIF Evaluate( "getToolBar.tbLabel" & counter ) NEQ ""> 

<CFSET VARIABLES.myToolBar = VARIABLES.myToolBar & Evaluate( 
"getToolBar.tbLabel" & counter ) & ","> 

<CFSET VARIABLES.myToolBarLinks = VARIABLES.myToolBarLinks & #Iif( 
Evaluate( "getToolBar.tbURL" & counter ) CONTAINS "http://",De( 
"main.cfm?a=myAccount&www=" ),De{ "" ) )# & Evaluate( 

"getToolBar.tbURL" & counter ) & ","> 


<CFSET VARIABLES .myToolBarTarget 
Evaluate ( "getToolBar.newWindow" 
'_top' ) )# & ","> 

</CFIF> 

</CFLOOP> 


VARIABLES.myToolBarTarget & #Iif( 
counter ) EQ l,De( '_blank’ ),De{ 


</CFIF> 
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<!-TOOLBAR—> 

<TABLE WIDTH="100%" BORDER="0" CELLPADDING="0" CELLSPACING="0"> 

<TR VALIGN="iaiddle"> 

<TD ALIGN="left"> 

<TABLE BORDER=0 CELLPADDING="0" CELLSPACING="0"> 

<TR> 

<CFLOOP INDEX="listCounter" FROM="l" TO="#ListLen( VARIABLES.myToolBar 
)#"> 

<TD ALIGN="center” VALIGN="itiiddle"> 

<CFOUTPUT> 

&nbsp;&nbsp;<A CLASS="toolBar" HREF="#ListGetAt( 

VARIABLES.myToolBarLinks,listCounter )#" TARGET="#ListGetAt( 

VARIABLES.myToolBarTarget,listCounter )#">#ListGetAt ( 

VARIABLES .itiyToolBar, listCounter ) #</A> 

</CFOUTPUT> 

</TD> 

</CFLOOP> 

</TR> 

</TABLE> 

</TD> 

<!-system toolbar-> 

<TD ALIGN="right"> 

<TABLE BORDER=0 CELLPADDING="0" CELLSPACING="0"> 

<TR> 

<CFOUTPUT> 

<TD ALIGN="center" VALIGN="middle"> 

</TD> 

<TD ALIGN=”center" VALIGN="middle"> 

&nbsp;&nbsp;<A CLASS="toolBar" 

HREF="main,cfm?a=myAccount&body=pagePersonalize.cfm”>Personalize</A> 

</TD> 

<TD ALIGN="center" VALIGN="middle"> 

&nbsp;&nbsp;<A CLASS="toolBar" 

HREF="main.cfm?a=myAccount&body=myTooIbar.ofm">Edit Toolbar</A> 

</TD> 

<TD ALIGN="center" VALIGN="middle"> 

&nbsp;&nbsp;<A CLASS="toolBar" 

HREF="main.cfm?a=resources&body=pageHelp.cfm">Help</A> 

</TD> 

<TD ALIGN="center" VALIGN="middle"> 

&nbsp;&nbsp;<A CLASS="toolBar" HREF="pageLogoff.cfm" >Log Off</A> 

</TD> 

</CFOUTPUT> 

</TR> 

</TABLE> 

</TD> 

</TR> 


</TABLE> 
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2. 


OPEN-ARCHITECTURE DESIGN FILES 


ADMIN.CFM 

<!— frames —> 

<FRAMESET ROWS="40%,*"> 

<FRAMESET COLS="30%,*"> 

<FRAME NAME="options" SRC="adminPageOptions.cfm" MARGINWIDTH="10" 
MARGINHEIGHT="10" SCROLLING="auto" FRAMEBORDER="0"> 

<FRAME NAME=”properties" SRC="blank.htm" MARGINWIDTH="10" 
MARGINHEIGHT="10'' SCROLLING="auto" FRAMEBORDER="0"> 

</FRAMESET> 

<FRflME NAME="preview" SRC="main.cfm" MARGINWIDTH="10" MARGINHEIGHT="10" 
SCROLLING="auto" FRAMEBORDER="0"> 

</FRAMESET> 


ADMINADDNEWPAGECFM 

<HTML> 

<HEAD> 

<TITLE>Untitled</TITLE> 

</HEAD> 

<CFIF IsDefined( "FORM.NewPageName" )> 

<CFINCLUDE TEMPLATE="component_declare.cfm"> 

<CFINCLUDE TEMPLATE="componen.t_prepare. cfm"> 

<CFSCRIPT> 

temp = ArrayAppend( aComponent,ArrayNew(2) ); 

ElementNumber = ArrayLen{ aComponent ); 

ComponentNames = 

"HEADER_RIGHT,HEADER_LEFT,TABS,TOOLBAR,PANEL,BODY,FOOTER"; 
ComponentFiles = 

"addInSearch.cfm,adminHelpHeaderLeft.cfm,addInTabs.cfm,addInPanel.cfm,a 
ddInToolbar.cfm,adminHelpBody.cfm,adminHelpFooter.cfm"; 

for ( counter — 1; counter LTE ListLen{ ComponentNames ); counter = 
counter + 1 ) 

{ 

aComponent[ElementNumber][counter][cCOMPONENT_NAME] = ListGetAt( 
ComponentNames,counter ); 

aComponent[ElementNumber][counter][cCOMPONENT TYPE] = "file"; 
aComponent[ElementNiunber][counter][cCOMPONENT~INLINECODE] = 
aComponent[ElementNumber][counter][cCOMPONENT_FILE] = ListGetAt( 
ComponentFiles, counter }; 

aComponent[ElementNumber][counter][cCOMPONENT URL] = ""; 
aComponent[ElementNumber][counter][cCOMPONENT~LOCKED] = "no"; 
aComponent[ElementNumber][counter][cCOMPONENT LOCKEDBY] = 
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aComponent[ElementNiomber][cAPPLICATION][cAPPLICATION_NAME] = 

"#FORM.NewPageName#"; 

aComponent[ElementNumber][cAPPLICA.TION][cAPPLICATION_DESCRIPTION] = 
"Readiness Explorer"; 

aComponent[ElementNumber][cAPPLICATION][cAPPLICATION DATECREATED] = 
"#Now()#"; 

aComponent[ElementNumber][cAPPLICATION][cAPPLICATION_CREATEDBY] = "" 
aComponent[ElementNumber][cAPPLICATION][cAPPLICATION~LASTUPDATED] = 
aComponent[ElementNumber][cAPPLICATION][cAPPLICATION_UPDATEDBY] = "" 
aComponent[ElementNumber][cAPPLICATION][cAPPLICATI0N~CARG01] = 

</CFSCRIPT> 

<CFWDDX 

INPUT="#aComponent #" 

OUTPUT="NewPacket" 

ACTI0N="CFML2WDDX" 

> 

<CFFILE 

ACTION="write" 

FILE="#GetDirectoryFromPath( GetTemplatePath() )#component.cfg" 
0aTPUT="#NewPacket#" 

> 

<CFELSEIF IsDefined( "FORM.DeletePage" )> 

<CFINCLUDE TEMPLATE="component_declare.cfm"> 

<CFINCLUDE TEMPLATE="component_prepare.cfm"> 

<CFSCRIPT> 

temp = ArrayDeleteAt( aComponent,URL.alD ); 

</CFSCRIPT> 

<CFWDDX 

INPUT="#aComponent#” 

OUTPUT="NewPacket" 

ACTION="CFML2 WDDX " 

> 

<CFFILE 

ACTION="write" 

FILE="#GetDirectoryFromPath( GetTemplatePath{) )#component.cfg" 
OUTPUT="#NewPacket#" 

> 

</CFIF> 

<BODY> 

<CFIF IsDefined( "URL.alD" )> 

<CFIF NOT IsDefined( "FORM.DeletePage" )> 

<CFFORM NAME="DeletePage" ACTION="adminAddNewPage.cfm?aID=#URL.aID#”> 
<B>Are you sure you want to delete this page? </B><INPUT TYPE="submit 
NAME="DeletePage" VALUE="Yes"> 
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</CFFORM> 


<CFELSE> 

<B>Page deleted.</B> 

</CFIF> 

<CFELSE> 

<CFFORM NAME="AddNewPage" ACTION="adininAddNewPage.cfm"> 

<B>Page Name: </B><CFINPUT TYPE="text" NAME="NewPageName’' SIZE=''20" 
MAXLENGTH="20" REQUIRED="yes" MESSAGE="Required Field"> 
<CENTER><INPUT TYPE="submit" VAIiUE="Add New Page"></CENTER> 
</CFFORM> 

</CFIF> 

</BODY> 

</HTML> 

ADMINHELPBODY.CFM 


The <B>Body</B> section is where the actual page contents is displayed. 

ADMINHELPFOOTER.CFM 


The <B>Footer</B> section is where copyrights, quick links, or date 
last displayed is provided. 

ADMINHEADF.RT.RFT TFM 

The <B>Left Header</B> is used to display the application logo. This 
is usually a GIF or JPEG file. 

ADMINHEADERRIGHTCFM 

The <B>Right Header</B> is used to display the application logo. This 
is usually a GIF or JPEG file. 

ADMINHELPPANEL.CFM 

The <B>Panel</B> section, which may be displayed on the right, left, or 
hidden is provided for page and user specific information. 

ADMINHELPTABSCFM 

The <B>Tab</B> section is where each page is designated by a tab. 

ADMINHELPTOOLBAR CFM 

The <B>Toolbar</B> section is provided for application and user 
specific instant links. 

ADMINPAGEOPTIONSCFM 
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<CFINCLUDE TEMPLATE="component_declare.cfm"> 

<CFSCRIPT> 

if ( NOT FileExists( cCONFIG_FILE ) ) 

{ 

aComponent = ArrayNew( 3 ); 

ComponentNames = 

"HEADER_RIGHT,HEADER_LEFT,TABS,TOOLBAR,PANEL,BODY,FOOTER"; 
ComponentFiles = 

"adminHelpHeaderRight.cfm,adminHelpHeaderLeft.cfm,adminHelpTabs.cfm,adm 
inHelpToolbar.cfm,adminHelpPanel.cfm,adminHelpBody.cfm,adminHelpFooter. 
cfm" ; 

for ( counter = 1; counter LTE ListLen( ComponentNames ); counter = 
counter + 1 ) 

{ 

aComponent[1][counter][cCOMPONENT_NAME] = ListGetAt( 

ComponentNames,counter ); 

aComponent[1][counter][cCOMPONENT_TYPE] = "file"; 
aComponent[1][counter][cCOMPONENT_INLINECODE] = 
aComponent[1][counter][cCOMPONENT_FILE] = ListGetAt( 

ComponentFiles,counter ); 

aComponent[1][counter][cCOMPONENT_URL] = ""; 
aComponent[1][counter][cCOMPONENT_LOCKED] = "no"; 
aComponent[1][counter][cCOMPONENT_LOCKEDBY] = 

} 

aComponent[1][cAPPLICATION][cAPPLICATION_NAME] = "New"; 
aComponent[1][cAPPLICATION][cAPPLICATION_DESCRIPTION] = 
aComponent[1][cAPPLICATION][cAPPLICATION_DATECREATED] = ""; 
aComponent[1][cAPPLICATION][cAPPLICATION_CREATEDBY] = ""; 
aComponent[1][cAPPLICATION][cAPPLICATION_LASTUPDATED] = ""; 
aComponent[1][cAPPLICATION][cAPPLICATION_UPDATEDBY] = ""; 
aComponent[1][cAPPLICATION][cAPPLICATI0N_CARG01] = ""; 

} 

</CFSCRIPT> 

<CFIF NOT FileExists( cCONFIG_FILE )> 

<CFWDDX 

INPUT="#aComponent#" 

OUTPUT="NewPacket" 

ACTI0N=”CFML2WDDX" 

> 

<CFFILE 

ACTION="write" 

FILE="#GetDirectoryFromPath( GetTemplatePath() )#component.cfg" 
OUTPUT="#NewPacket#" 

> 

<CFELSE> 
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<CFINCLUDE TEMPLATE="coniponent_prepare.cfm"> 
</CFIF> 


<html> 

<head> 

<title>Untitled</title> 

</head> 


<body> 

<SCRIPT LANGUAGE="JavaScript"> 

imageDirectory = "images/”; 
<CFINCLUDE TEMPLATE="ftiens4.js"> 


foldersTree = gFld("<B>Page Maintenance</B>", "") 
insDoc(foldersTree, gLnk(4, "Create a New Page", 
"adminAddNewPage.cfm","properties")) 


auxl = insFld(foldersTree, gFld("Current Pages", ”")) 

<CFLOOP INDEX=”counter" FR0M="1" TO="#ArrayLen( aComponent )#"> 


<CFSET VARIABLES.auxLocation = "aux#Evaluate(counter+1)#"> 
<CFOUTPUT> 

#VARIABLES.auxLocation# = insFld(auxl, 

gFld("#aComponent[counter][cAPPLICATION][cAPPLICATION_NAME]#" 
insDoc(#VARIABLES.auxLocation#, gLnk(4, "Delete", 
"adminAddNewPage.cfm?aID=#counter#","","properties" )) 
insDoc{#VARIABLES.auxLocation#, gLnk(4, "Preview", 

"main.cfm?aID=#counter#","","preview" )) 
insDoc{#VARIABLES.auxLocation#, gLnk(4, "Information", 
"adminUpdatePage.cfm?aID=#counter#&comID=#cAPPLICATION#", "", " 
" )) 

insDoc(#YARIABLES.auxLocation#, gLnk(4, "Header: Right", 
"adminUpdatePage.cfm?aID=#counter#&comID=#cHEADER RIGHT#","", 
s" )) 




properties 


"propertie 


insDoc(#VARIABLES.auxLocation#, gLnk(4, "Header: Left", 

"adminUpdatePage.cfm?aID=#counter#&comID=#cHEADER_LEFT#","","properties 

insDoc(#VARIABLES.auxLocation#, gLnk(4, "Tabs", 

"adminUpdatePage.cfm?aID=#counter#&comID=#cTABS#","properties" )) 
insDoc(#VARIABLES.auxLocation#, gLnk(4, "Toolbar", 

"adminUpdatePage.cfm?aID=#counter#&comID=#cTOOLBAR#","properties" )) 
insDoc(#VARIABLES.auxLocation#, gLnk(4, "Panel", 

"adminUpdatePage.cfm?aID=#counter#&comID=#cPANEL#","properties" )) 
insDoc(#VARIABLES.auxLocation#, gLnk(4, "Body", 

"adminUpdatePage.cfm?aID=#counter#&comID=#cBODY#","","properties" )) 
insDoc(#VARIABLES.auxLocation#, gLnk(4, "Footer", 

"adminUpdatePage.cfm?aID=#counter#&comID=#cFOOTER#","properties" )) 
</CFOUTPUT> 


</CFLOOP> 

</SCRIPT> 

<SCRIPT IANGUAGE="javascript"> 
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initializeDocmnent() 
</script> 

</head> 

<BODY BGCOLOR="beige"> 
</body> 

</html> 

ADMINUPDATEPAGE.CFM 


<HTML> 

<HEAD> 

<TITLE>Configuration</TITLE> 

</HEAD> 

<CFINCLUDE TEMPLATE="component_declare.cfm"> 
<CFIF ISDEFINED{ "FORM.Packet" )> 

<CFWDDX 

INPUT="# FORM.Packet #" 

OUTPUT="aComponent" 

ACTI0N="WDDX2CFML" 


<CFIF URL.comID EQ 8> 

<CFSET aComponent[URL.alD][URL.comID][cAPPLICATION_NAME] = 

"#FORM.appName#"> 

<CFSET aComponent[URL.alD][URL.comID][cAPPLICATION_DESCRIPTION] 

"#FORM.appDescription#"> 

<CFSET aComponent[URL.alD][URL.comID][cAPPLICATION_DATECREATED] 
”#DateFormat( Now(),'dd-mmm-yyyy' )#"> 

<CFSET aComponent[URL.alD][URL.comID][cAPPLICATION_CREATEDBY] = 
"mwhitecar"> 

<CFSET aComponent[URL.alD][URL.comID][cAPPLICATION_LASTUPDATED] 
<CFSET aComponent[URL.alD][URL.comID][cAPPLICATION_UPDATEDBY] = 
<CFSET aComponent[URL.alD][URL.comID][cAPPLICATI0N_CARG01] = 
"#FORM.appCargol#"> 

<CFELSE> 

<CFSET aComponent[URL.alD][URL.comID][cCOMPONENT_TYPE] = 

"#FORM.comType#"> 

<CFSET aComponent[URL.alD][URL.comID][cCOMPONENT_INLINECODE] = 
"#FORM.comInlineCode#"> 

<CFSET aComponent[URL.alD][URL.comID][cCOMPONENT_FILE] = 

"#FORM.comFileLocation#"> 

<CFSET aComponent[URL.alD][URL.comID][cCOMPONENT_URL] = 
"#FORM.comURL#"> 

<CFSET aComponent[URL.alD][URL.comID][cCOMPONENT_LOCKED] = "no"> 
<CFSET aComponent[URL.alD][URL.comID][cCOMPONENT_LOCKEDBY] = ”"> 

</CFIF> 


<CFWDDX 



INPUT=”# aComponent #" 
OUTPUT=”NewPacket” 
ACTION="CFML2WDDX” 


<CFFILE 

ACTION="write” 

FILE="#GetDirectoryFromPath( GetTemplatePath() )#component.cfa" 
OUTPUT="#NewPacket#" 


</CFIF> 

<CFINCLUDE TEMPLATE="coiaponent_prepare.cfm"> 

<BODY> 

<CFFORM ACTION="adminUpdatePage.cfm?aID=#URL,alD#&comID=#URL.comID#" 
NAME="ActionForm”> 

<TABLE BORDER=0> 

<CFOUTPUT> 

<INPUT TYPE="hidden" NAME=”Packet” VALUE="#HTMLEditFormat( DataPacket 

) 

</CFOUTPUT> 

<CFIF URL.comID EQ 8> 

<TR> 

<TD><B>Naine: </B></TD> 

<TD><CFINPUT TYPE="Text" NAME="appName" REQUIRED="Yes" SIZE="30" 
MAXLENGTH="15" 

VALUE="#aComponent[URL.aID][cAPPLICATION][cAPPLICATION NM1E]#"></TD> 
</TR> 

<TR> 

<TD><B>Description:</B></TD> 

<TD><CFINPUT TYPE="Text” NAME="appDescription" REQUIRED="No” SIZE=”30" 
MAXLENGTH="60” 

VALUE=”#aCoiiiponent[URL.aID] [cAPPLICATION] [cAPPLICATION DESCRIPTION] #">< 

/TD> - 

</TR> 

<TR> 

<TD><B>Notes:</B></TD> 

<TD><CFINPUT TYPE="Text” NAME="appCargol" REQUIRED="No" SIZE="30" 

max;length=" 60" 

VALUE="#aComponent[URL.aID][cAPPLICATION][cAPPLICATION CARGOl]#"></TD> 
</TR> - 

<CFELSE> 

<TR> 

<TD><B>Type:</B></TD> 

<TD><CFINPUT TYPE="Radio" NAME="comType" VALUE="file" CHECKED="#Iif( 
aComponent[URL.alD][URL.comID][cCOMPONENT TYPE] EQ 'file',true false 
)#">File</TD> “ 

<TD><CFINPUT TYPE="Text" NA^^E="comFileLocation" REQUIRED="No" SIZE="30" 
MAXLENGTH="200" 

VALUE="#aComponent[URL.alD][URL.comID][cCOMPONENT FILE]#" 
onFOCUS="document.ActionForm.comType[0].checked =~true;"></TD> 
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</TR> 

<TR> 

<TD>&nbsp;</TD> 

<TD><CFINPUT TYPE="Radio" NAME="comType" VALUE="URL" CHECKED="#Iif( 
aComponent[URL.aID][URL.comID][cCOMPONENT_TYPE] EQ 'URL',true,false 
)#">URL</TD> 

<TD><CFINPUT TYPE="Text" NAME="comURL" REQUIRED="No" SIZE=”30" 
MAXLENGTH=''200'' 

VALUE="#aComponent[URL.aID][URL.comID][cCOMPONENT_URL]#" 
onFOCUS="document.ActionForm.comType[1].checked = true;"></TD> 

</TR> 

<TR> 

<TD>&nbsp;</TD> 

<TD><CFINPUT TYPE=’'Radio" NAME="comType" VALUE="inline" CHECKED="#Iif( 
aComponent[URL.aID][URL.comID][cCOMPONENT_TYPE] EQ 'inline',true,false 
)#">Inline Code</TD> 

<TD><CFINPUT TYPE="Text'’ NAME="comInlineCode" REQUIRED="No" SIZE="30" 
MAXLENGTH="200" 

vaLUE="#aComponent[URL.aID][URL.comID][cCOMPONENT_INLINECODE]#" 
onFOCUS="docTament.ActionForm.comType[2].checked = true;"></TD> 

</TR> 

</CFIF> 

<TR> 

<TD COLSPAN=3 ALIGN=''center"><INPUT TYPE="submit" VALUE="Save"></TD> 
</TR> 

</TABLE> 

</CFFORM> 

</BODY> 

</HTML> 


ADMINWRITECONFIG.CFM 


<!- CREATE VARIABLE TO HOLD FILE TO WRITE TO. NOTE: THIS WILL 

OVERWRITE! -> 

<CFSET filetowrite = #GetDirectoryFromPath( GetTemplatePath() )# & 
"getProgramDefaults.cfm"> 


<!- BEGIN WRITING. NOTE: DATA WRITTEN DETERMINE WHAT URL VARIABLES 

WAS USED.-> 

<CFLOCK TIMEOUT="60"> 

<CFFILE ACTION="WRITE" 

FILE="#filetowrite#" 

OUTPUT=’' 

<!-PROGRAM SPECIFIC-> 

<CFSET gvHOMEPAGE_NAME = 'tVARIABLES.gvHOMEPAGE_NAME#'> 


<!- DATASOURCE DEFAULTS -> 

<CFSET gvDATASOURCE_USER 
<CFSET gvDATASOURCE_DATA 
<CFSET gvDATASOURCE_CONFIG 
<CFSET gvDATASOURCE_ARCHIVE = 


'reUSERS'> 
'reDATA'> 

'reCONFIG'> 
reARCHIVE'> 


<!-ADMINISTRATION-> 
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<CFSET gvAdminName 

<CFSET gvAdminPhone 

<CFSET gvAdininEmail = 

<CFSET gvAdininName_Sec 

<CFSET gvAdminPhone_Sec = 

<CFSET gvAdminEmail_Sec = 

<!- DIRECTORIES DEFAULTS -> 

<CFSET gvFILEPATH 
GetTemplatePathO )#'> 

<CFSET gvIMAGE_DIRECTORY 
<CFSET gvJS_DIRECTORY 
<CFSET gvUSER_DIRECTORY 
<CFSET gvRESOURCE DIRECTORY = 


= ' #VARIABLES. gvADMINNAME#' > 
tVARIABLES.gvADMINPHONE#'> 
#VARIABLES.gvADMINEMAIL#'> 
tVARIABLES.gvADMINNAME_SEC#'> 
#VARIABLES.gvADMINPHONE_SEC#'> 
#VARIABLES.gvADMINEMAIL SEC#'> 


= '#GetDirectoryFromPath( 

images/’> 
js/'> 
users/’> 

' #VARIABLES.gvRESOURCE DIRECTORY#'> 


<!— RESOURCES —> 

<CFSET gvMS_RESOURCE_CONVERTERS = 

'#VARIABLES.gvMS_RESOURCE CONVERTERS#'> 


<!- SECURITY ACCESS DEFAULTS -> 

<CFSET gvLEVEL_ADMIN = '10’> 


<! -ORGANIZATION-> 

<CFSET gvAPP_HOME 
<CFSET gvAPP_COMMAND 
<CFSET gvHOME_PAGE 
<CFSET gvSMTP_SERVER 
<CFSET gvFromEmail 


' #VARIABLES.gvAPP_HOME#'> 

' #VARIABLES.gvAPP_COMMAND#'> 

= '#VARIABLES.gvHOME_PAGE#’> 
' #VARIABLES.gvSMTP_SERVER#'> 

= '#VARIABLES.gvFROMEMAIL#'> 


<!-SECURITY-> 

<CFSET gvTIMEOUT_MINS 
<CFSET gvTIMEOUT_SECS 
60 ) - 60 )#> 

<CFSET gvSECURITYEMAIL 
<CFSET gvLOGON_ATTEMPTS 
<CFSET gvIP_BLOCKING 
<CFSET gvDOW_BLOCKING 
<CFSET gvDOMAIN_BLOCKING 
<CFSET gvDOMAIN_BLOCKINGLIST 
<CFSET gvDOW_DAYSTOBLOCK 
<CFSET gvTIME_BLOCKING 
<CFSET gvTIME_FROMBLOCK 
<CFSET gvTIME_TOBLOCK 
<CFSET gvDEFAULTPSWDEXP 
<CFSET gvMIN_PSWD_SIZE 
<CFSET gvPSWD_REUSE 
<CFSET gvPSWD_FORGET 
<CFSET gvPSWD_REMEMBER 
<CFSET gvPSWD_FORGET_CHG 
<CFSET gvPSWD_LOCKIFFAIL 
<CFSET gvPSWD_SENDEMAIL 
<CFSET gvPSWD_ISCASE 
<CFSET gvPSWD_INCLNUM 
<CFSET gvMSG_FAILEDLOGON 
<CFSET gvMSG_USEREXPlRE 
<CFSET gvMSG_RECORDLOCKED 
<CFSET gvMSG IPBLOCKING 


= '#VARIABLES.gvTIMEOUT_MINS#'> 

= #Evaluate( ( VARIABLES.gvTIMEOUT_MINS 

= '#VARIABLES.gvSECURITYEMAIL#'> 

= '#VARIABLES.gvLOGON_ATTEMPTS #'> 

= '#VARIABLES.gviP_BLOCKING#'> 

= '#VARIABLES.gvDOW_BLOCKING#'> 

= 'ttVARIABLES.gvDOMAIN_BLOCKING#'> 

= '#VARIABLES.gvDOMAIN_BLOCKINGLIST#’> 

= '#VARIABLES.gvDOW_DAySTOBLOCK#'> 

= '#VARIABLES.gvTIME_BLOCKING#'> 

= 'ttVARIABLES.gvTIME_FROMBLOCK#'> 

= ’#VARIABLES,gvTIME_TOBLOCK#’> 

= '#VARIABLES.gvDEFAULTPSWDEXP#'> 

= '#VARIABLES.gvMIN_PSWD_SIZE#'> 

= '#VARIABLES.gvPSWD_REUSE#'> 

= '#VARIABLES.gvPSWD_FORGET#'> 

= '#VARIABLES.gvPSWD_REMEMBER#'> 

= '#VARIABLES.gvPSWD_FORGET_CHG#'> 

= ’#VARIABLES.gvPSWD_LOCKIFFAIL#'> 

= '#VARIABLES.gvPSWD_SENDEMAIL#’> 

= '#VARIABLES.gvPSWD_ISCASE#'> 

= '#VARIABLES.gvPSWD_INCLNUM#'> 

= '#VARIABLES.gvMSG_FAILEDLOGON#'> 

= '#VARIABLES.gvMSG_USEREXPIRE#'> 

= '#VARIABLES.gvMSG_RECORDLOCKED#’> 

= '#VARIABLES.gvMSG_IPBLOCKING#'> 
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<CFSET gvMSG_DOMA.INBLOCKING = ’ #VARIJ\BLES. gvMSG_DOMAINBLOCKING# ’ > 
<CFSET gvMSG_DOWBLOCKING = '#VARIABLES.gvMSG_DOWBLOCKING#'> 

<CFSET gvMSG_TIMEBLOCKING = '#VARIABLES.gvMSG_TIMEBLOCKING#’> 

<!- SECURITY ACCESS DEFAULTS -> 

<CFSET gvLEVEL_ADMIN = '10'> 

"> 

</CFLOCK> 

3. SYSTEM ADMINISTRATION FILES 

ADMDSILISTINTERFACES.CFM 


<CFPARAM NAME="URL.action" DEFAULT="edit"> 

<CFSET mainFile = "main.cfm?a=tools&body=adminListInterfaces.cfm"> 
<CFSET mainTable = "tblInterface_ODBC"> 

<CFSET idField = "interface_odbc_id"> 

<CFSET editTitle = "Interfaces"> 

<CFSET useSource = "#VARIABLES.gvDATASOURCE_CONFIG#"> 

<CFSET packet = "Interfaces"> 

<CFSET packetList = "InterfaceList"> 

<CFIF NOT #CompareNoCase( URL.action,"View" )#> 

<CF_srReportEngine 

ACTION="run" 

NAME="listInterfaces" 

INCLUDEOPTIONS="true" 

HEADERTYPE="List" 

SYS TEM_TOOLBAR="New" 

SYSTEM_TOOLBARLINKS="#VARIABLES.mainFile#&action=add" 

> 

<CFELSEIF NOT #CompareNoCase( URL.action,"Edit" )#> 

<CFSET formAction = "iVARIABLES.mainFile#&action=save"> 

<CFSET formName="formEdit"> 

<CFELSEIF NOT #CompareNoCase( URL.action,"Save" )#> 

<CFWDDX 

INPUT="#FORM.WDDXContent #" 

OUTPUT="Packet" 

ACTION="WDDX2 CFML" 

> 

<CFSET insertCount = 0> 

<CFSET updateCount = 0> 

<CFSET deleteCount = 0> 

<CFLOOP QUERY="Packet"> 

<CFIF NOT #CompareNoCase( Evaluate( "Packet." & VARIABLES.idField 
),"new" )#> 
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<CFTRANSACTION> 


<!- insert fields into field table -> 

<CFQUERY DATASOURCE="#VARIABLES.UseSource#"> 

INSERT INTO #VARIABLES.mainTable# ( 

io_name, io_odbc,io_table,io_read, io_write,io_isLocal,io_server,io_serve 
r_port,io_server_login,io_server_password,io_description, io_linkedField 

VALUES ( 

'#io_naiae#','#io_odbc#','#io_table#',#io_read#,#io_write#, #io isLocal#, 

' "f^^o^server^port# ’ / ’ #io_server_login# *, ’ #io server passwo 
rd#',’#io_description#','#io_linkedField#' ) “ 

</CFQUERY> 

</CFTRANSACTION> 

<CFSET insertCount = insertCount + 1> 

<CFELSEIF NOT #CompareNoCase( Packet.wasEdited, "Delete" )#> 

<CFQUERY DATASOURCE="#VARIABLES.useSource#"> 

DELETE FROM #VARIABLES.mainTable# 

WHERE #VARIABLES.idField# = #Evaluate( VARIABLES.idField )# 

</CFQUERY> 

<CFSET deleteCount = deleteCount + 1> 

<CFELSEIF NOT #CompareNoCase( Packet.wasEdited,"Yes" )#> 

<CFQUERY DATASOURCE="#VARIABLES.useSource#"> 

UPDATE #VARIABLES.mainTable# 

SET io_name = '#io_name#', 

io_odbc = '#io_odbc#', 

io_table = '#io_table#’, 

io_read = #io_read#, 

io_write = #io_write#, 

io_isLocal = #io_isLocal#, 

io_server = ’#io_server#', 

io_server_port = ’#io_server_port#', 

io_server_login = '#io_server_login#', 

io_server_password = '#io_server_password#', 

io_description = '#io_description#', 

io_linkedfield = '#io_linkedfield#' 

WHERE #VARIABLES.idField# = #Evaluate( VARIABLES.idField )# 

</CFQUERY> 

<CFSET updateCount = updateCount + 1> 

</CFIF> 

</CFLOOP> 
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<CFLOCATION URL="#VARIABLES.iaainFile#"> 


</CFIF> 

<CFIF #CompareNoCase( URL.action,"view” )#> 

<CFQUERY NAME="getRecordInfo" DATASOURCE="#VARIABLES.useSource#"> 
SELECT * 

FROM #VARIABLES.mainTable# 

ORDER BY io_name; 

</CFQUERY> 

<SCRIPT LANGUAGE^"javascript" SRC-"wddx.js"></SCRIPT> 

<SCRIPT LANGUAGE-"JAVASCRIPT"> 

<CFOUTPUT> 

function onSubmit( destination ) 

{ 

document.#VARIABLES.formName#.action = destination; 
document. #VARIABLES . formName#. submit {) ; 

} 

<1-Convert query to Javascript object-> 

<CFWDDX 

ACTION="CFML2JS" 

INPUT-"#getRecordInfo#" 

TOPLEVELVARIABLE="#VARIABLES.packet#" 

> 

// Add a column called "wasedited" to the recordset 
// A "Yes" in this column means the row was "touched" 

#VARIABLES.packet#.addColumn("wasedited”); 

//////////////////////////////////////////////////// 

// This function fills the SELECT list with users 
function initControls() 

{ 

with (document. #VARIABLES - formName#) 

{ 

// Clear any current OPTIONS from the SELECT 
#VARIABLES.packetList#.options.length =0; 

// For each record... 

for (var i = 0; i < #VARIABLES.packet#.getRowCount(); i++) 

{ 

// Create a new OPTION object 
NewOpt - new Option; 

NewOpt.value = #VARIABLES.packet#.interface_odbc_id[i]; 

NewOpt.text = #VARIABLES.packet#.io_name[i]; 

// Add the new object to the SELECT list 

#VARIABLES.packetList#.options[#VARIABLES.packetList#.options.length] 
NewOpt; 
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} 

//UserList.selectedIndex = 0; 

//fillControls(); 

} 

} 

function fillControls() 

{ 

with (document.#VARIABLES.fonnNaiae#) 

// Add one to the OPTION number to get the data row number 
var RowNum = #VARIABLES.packetList#.selectedIndex; 

// Populate textboxes with data in that row 
io_name.value = #VARIABLES.packet#.io_name[RowNum]; 

io_description.value = #VARIABLES.packet#.io_description[RowNum]/ 

~ packet#.io linkedfield[RowNxm] ; 

io_odbc.value = #VARIABLES.packet#.io_odbc[RowNum]; 
io_table.value = #VARIABLES.packet#.io_table[RowNum]; 
io_server.value = #VARIABLES.packet#.io_server[RowNum]; 
io_server_port.value = tVARIABLES.packet#.io_server port[RowNum]• 
io_server_login.value = #VARIABLES.packet#.io server login[RowNum] 
io_server_password.value = - _ j 

iVARIABLES.packet#.io_server_password[RowNum]; 

if ( #VARIABLES.packet#.io_read[RowNum] != 0 ) 

io_Rsad[0].checked = true; 

else 

io_Recid [ 1 ]. checked = true; 

if ( #VARIABLES.packet#.io_write[RowNum] != 0 ) 

io_Write[0].checked = true; 

else 

io_Write[l].checked = true; 

if ( #VARIABLES.packet#.io_islocal[RowNum] != 0 ) 

io_isLocal[0].checked = true; 

else 

io_isLocal[1].checked = true; 

} 

} 

function newRecordO 

{ 

with (document.#VARIABLES.formName#) 

// Add a new row to the recordset 
#VARIABLES.packet#.addRows(1); 

NewRow = #VARIABLES.packet#.getRowCount0-1; 

#VARIABLES.packet#.setField(NewRow, "interface odbc id", "new"); 
#VARIABLES.packet#.setField(NewRow, "io name", "(New Field)"); 
#VARIABLES.packet#.setField(NewRow, "io odbc", ""); 

#VARIABLES.packet#.setField(NewRow, "io~linkedfield", ""); 
#VARIABLES.packet#.setField(NewRow, "io description", ""); 
#VARIABLES.packet#.setField (NewRow, "io^able"/ ""); 

#VARIABLES.packet#.setField(NewRow, "io server", ""); 

#VARIABLES.packet#.setField(NewRow, "io server port", ""); 
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#VARIABLES.packet#.setField(NewRow, ”io_server_login", 

#VARIABLES.packet#.setField(NewRow, "io_server_password", "”); 
#VARIABLES.packet#.setField(NewRow, "io_read”, ”1”); 

#VARIABLES.packet#.setField(NewRow, "io_write”, ”0”); 

#VARIABLES.packet#.setField(NewRow, "io_islocal", ”1”); 

// Re-initialize the SELECT list 
initControls(); 

// Re-select the book that was selected before 
#VARIABLES.packetList#.selectedIndex = NewRow; 
fillControls(); 

} 

} 

function savetoServer() 

{ 

with (docioment. #YARIABLES. formName#) 

{ 

mySerializer = new WddxSerializer(); 

#VARIABLES.packet#AsWDDX = mySerializer.serialize( #VARIABLES.packet# 

) ; 

WDDXContent.value = #VARIABLES.packet#AsWDDX; 
submit{); 

• } 

} 

function saveChanges() 

{ 

with (document. #VARIABLES. formName#) 

{ 

var selectedProfile = #VARIABLES.packetList#-selectedIndex; 
var RowNum = selectedProfile; 

// Populate textboxes with data in that row 
#VARIABLES.packet#.io_name[RowNum] = io_name.value; 

#VARIABLES .packet#. io__odbc [RowNum] = io_odbc. value; 

#VARIABLES.packet#.io_linkedfield[RowNum] = io_linkedfield.value; 
#VARIABLES.packet#.io_description[RowNum] == io_description.value; 
#VARIABLES.packet#.io_table[RowNum] = io_table.value; 

#VARIABLES.packet#.io_server[RowNum] = io_server.value; 

#VARIABLES.packet#.io_servereport[RowNum] = io_server_port.value; 
#VARIABLES.packet#.io_server_login[RowNum] = io_server_login.value; 
#VARIABLES.packet#.io_server_password[RowNum] = 
io_server_password.value; 

if ( io_Read[0].checked ) 

#VARIABLES.packet#.io_read[RowNum] = io_Read[0].value; 
else 

#VARIABLES.packet#.io_read[RowNum] == io_Read[l].value; 
if ( io_Write[0].checked ) 

#VARIABLES.packet#.io_write[RowNum] = io_Write[0].value; 
else 

#VARIABLES.packet#.io_write[RowNum] = io_Write[l].value; 
if { io_isLocal[0].checked ) 

#VARIABLES.packet#.io_islocal[RowNum] = io_isLocal[0].value; 
else 
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#YARIABLES.packet#.io_islocaltRowNijm] = io_isLocal[1].value; 

#YARIABLES. packet#. wasedited[RowNuin] = 'Yes'; 
initControls(); 

#VARIABLES.packetList#.selectedIndex = - 1 ; 
#VARIABLES.packetList#.selectedIndex = selectedProfile; 

} 

} 

function deleteRecord() 

{ 

with (document.#VARIABLES.fonnName#) 

{ 

var selectedRecord = #VARIABLES.packetList#.selectedIndex; 
var RowNum = selectedRecord; 

// Populate textboxes with data in that row 
#VARIABLES.packet#.io_nanie[RowNum] = "MARKED FOR DELETION"; 
io_name.value = #VARIABLES.packet#.io_name[RowNum]; 

#VARIABLES.packet#.wasedited[RowNum] = 'Delete'; 

initControls() ; 

#VARIABLES.packetList#.selectedIndex = - 1 ; 

#VARIABLES.packetList#.selectedindex = selectedRecord; 

} 

window.onload=initControls; 

</CFOUTPUT> 

</SCRIPT> 

<!- display appropriate header -> 

<!-#getProfileinfo.pgName#"-> 

<CF_srWinTab 

TABS="Profile Groups,Group Fields,Field Rules,Lists,Interfaces" 
TABSELECTED="5" 

TABURL="main.cfm?a=tools&body=adminListProfiles.cfm,main.cfm?a=tools&bo 
dy=adminListProfileFields.cfm,main.cfm?a=tools&body=adminListProfileFie 
IdsRules.cfm, main.cfm?a=tools&body=adminListProfileLists.cfm,main.cfm?a 
=tools&body=adminListInterfaces.cfm" 

SYSTEM_TOOLBAR="New, Save,Save to Server,Delete,Undo" 
SYSTEM_TOOLBARLINKS="javascriptrnewRecordO,javascript:saveChanges{), ja 
vascript:savetoServer{),j avascript:deleteRecord{),javascript:fillContro 
IsO" 

> 

<TABLE BORDER=0 WIDTH=100%> 

<CFFORM ACTION="#VARIABLES.fonnAction#" NAME=''#VARIABLES.formName#"> 
<INPUT TYPE="hidden" NAME="WDDXContent" VALUE=""> 

<TR> 

<TD> 

<SPAN CLASS="winTab"> 
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<CF_srHELPSUMMARY shortName="adm.inInterfaces_ODBC"> 

</SPAN> 

<P> 

<TABLE BORDER=0 WIDTH=100%> 

<TR> 

<TD CLASS="winTabLabel" ALIGN="center" WIDTH=40%>&nbsp;INTERFACES</TD> 
<TD CLASS="winTabLabel" ALIGN="center">&nbsp;PROPERTIES</TD> 

</TR> 

<TR> 

<TD CLASS="winTabField" WIDTH=40% ALIGN="center" VALIGN="top"> 
<CFOUTPUT> 

<SELECT NAME="#VARIABLES.packetList#" SIZE="10" 
onCHANGE=''fillControls {) ”> 

<OPTION>==========(loading...)========== 

</SELECT> 

</CFOUTPUT> 

</TD> 

<TD CLASS="winTabField" VALIGN="top"> 

<TABLE BORDER=0 WIDTH=100%> 

<TR> 

<TD CLASS="winTabField">Name:</TD> 

<TD CLASS="winTabField"> 

<INPUT CLASS="stdTextBox” NAME="io_name" TYPE=”text" SIZE=”30" 
MAXLENGTH="30"> 

</TD> 

</TR> 

<TR VALIGN="top"> 

<TD CLASS="winTabField">Description:</TD> 

<TD CLASS="winTabField"> 

<TEXTAREA CLASS="stdTextBox" COLS=30 R0WS=3 NAME="io_description" 

WRAP="soft"></TEXTAREA> 

</TD> 

</TR> 

<TR> 

<TD CLASS="winTabField'’>ODBC Name:</TD> 

<TD CLASS="winTabField"> 

<INPUT CLASS="stdTextBox" NAME="io_odbc" TYPE=”text" SIZE="30" 
MAXLENGTH="40"> 

</TD> 

</TR> 

<TR> 

<TD CLASS="winTabField">Table Name:</TD> 

<TD CLASS=’'winTabField"> 

<INPUT CLASS="stdTextBox" NAME="io_table" TYPE="text" SIZE="30" 
MAXLENGTH=’'30''> 

</TD> 

</TR> 

<TR> 

<TD CLASS="winTabField">Linked Field:</TD> 

<TD CLASS="winTabField"> 

<INPUT CLASS="stdTextBox" NAME="io_linkedfield" TYPE="text" SIZE="30" 
MAXLENGTH=”30"> 

</TD> 

</TR> 

<TR> 

<TD CLASS="winTabField" COLSPAN=2><B>PERMISSIONS</B></TD> 
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</TR> 

<TR> 

<TD CLASS="winTabField">Read Data?</TD> 

<TD CLASS="winTabField"> 

<INPUT NAME="io_Read" TYPE="radio" VALUE="l">Yes 
<INPUT NftME="io_Read" TYPE="radio" VALUE="0">No 
</TD> 

</TR> 

<TR> 

<TD CLASS="winTabField">Write Data?</TD> 

<TD CLASS="winTabField"> 

<INPUT NAME="io_Write" TYPE="radio" VALUE="l">Yes 
<INPUT NaME="io_Write” TYPE="radio" VALUE="0”>No 
</TD> 

</TR> 

<TR> 

<TD CLASS="winTabField" C0LSPAN=2><B>SERVER</B></TD> 

</TR> 

<TR> 

<TD CLASS="winTabField">Data on Local Server?</TD> 

<TD CLASS="winTabField"> 

<INPUT NAME="io_isLocal" TYPE="radio" VALUE="l">Yes 
<INPUT NAME="io_isLocal" TYPE="radio" VALUE="0">No 
</TD> 

</TR> 

<TR> 

<TD CLASS="winTabField">Address:</TD> 

<TD CLASS="winTabField"> 

<INPUT CLASS="stdTextBox" NAME="io_server" TYPE=”text" SIZE="30" 
MflXLENGTH="50"> ~ 

</TD> 

</TR> 

<TR> 

<TD CLASS=”winTabField">Port Number:</TD> 

<TD CLASS="winTabField"> 

<INPUT CLASS=”stdTextBox" NAME="io server port” TYPE="text” SIZE="10'' 
MAXLENGTH="5"> 

</TD> 

</TR> 

<TR> 

<TD CLASS="winTabField">Login ID:</TD> 

<TD CLASS="winTabField"> 

<INPUT CIiASS=”stdTextBox" NAME="io_server login" TYPE="text" SIZE="30” 
MAXLENGTH="20"> 

</TD> 

</TR> 

<TR> 

<TD CLASS="winTabField">Password:</TD> 

<TD CLASS="winTabField"> 

<INPUT CLASS="stdTextBox'' NAME="io_server password" TYPE="password" 
SIZE="30" MAXLENGTH="20"> 

</TD> 

</TR> 

</TABLE> 

</TD> 

</TR> 

</TABLE> 
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</TD> 

</TR> 

</CFFORM> 

</TABLE> 

</CF_srWinTab> 

</CFIF> 


ADMINLISIPANELCOMPONEOT 

<CFPARAM NAME=”URL.action” DEFAULT=”View”> 

<CFSET mainFile = "iriain.cfin?a=tools&body=adininListPanelComponents*cfin”> 
<CFSET mainTable = "tblPanelComponents"> 

<CFSET idField = ”panelComponent_id”> 

<CFSET addTitle = "CREATE A NEW PANEL COMPONENT”> 

<CFSET editTitle = "EDIT PANEL COMPONENT”> 

<CFIF URL.action EQ ”View”> 

<CF_srReportEngine 

ACTION="run” 

NAME="1is tPane1Component s" 

INCLUDEOPTIONS=”true” 

HEADERTYPE="List” 

SYS TEM_TOOLBAR= ” New " 

SYSTEM TOOLBARLINKS="#VARIABLES.mainFile#&action=add” 


<CFELSEIF URL.action EQ ”Add"> 

<CFSET title - "#VARIABLES.addTitle#"> 

<CFSET formAction = ”#VARIABLES.mainFile#&action=saveNew”> 
<CFSET forinName="formAdd”> 

<CFELSEIF URL.action EQ "Edit"> 

<CFSET title = "#VARIABLES.editTitle#"> 

<CFSET formAction = ”#VARIABLES.mainFile#&action=save”> 
<CFSET forinName=”fonnEdit”> 

<CFELSEIF URL.action EQ "saveNew”> 

<CFINSERT DATASOURCE-"#VARIABLES. gvDATASOURCE_CONFIG#" 
TABLENAME="#VARIABLES.mainTable#"> 

<CFLOCATION URL=="#VARIABLES .mainFile#”> 

<CFELSEIF URL.action EQ ”save"> 

<CFUPDATE DATASOURCE=”#VARIABLES. gvDATASOURCE_CONFIG#" 
TABLENAME="#VARIABLES.mainTable#"> 

<CFLOCATION URL="#VARIABLES .mainFile#”> 

<CFELSEIF URL.action EQ ”delete”> 
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<CFQUERY NAME="deleteInfo" 

DATASOtrRCE="#VARIABLES.gvDATASOURCE_CONFIG#”> 

DELETE 

FROM #VARIABLES.mainTable# 

WHERE #VARIABLES.idField# = #Evaluate( 'URL.' & VARIABLES.idField )# 
</CFQUERy> 

<CFLOCATION URL="#VARIABLES.mainFile#"> 

</CFIF> 

<CFIF URL.action NEQ "View"> 

<CFQUERY NAME="getRecordInfo” 

DATASOURCE="#VARIABLES.gvDATASOURCE_CONFIG#"> 

SELECT * 

FROM #VARIABLES.mainTable# 

WHERE #VARIABLES.idField# = <CFIF URL.action EQ "Edit">#Evaluate( 
'URL.' & VARIABLES.idField )#<CFELSE>-1</CFIF> 

</CFQUERY> 

<!- display appropriate header -> 

<CF_srWinTab 
TABS="#VARIABLES.title#" 

SYSTEM_TOOLBAR="Save/List Panel Components" 

SYSTEM_TOOLBARLINKS="j avascript:docxament.#VARIABLES.formName#.submit( 
#VARIABLES.mainFile#" 


<TABLE BORDER=0 WIDTH=100%> 

<CFFORM ACTION="#VARIABLES.formAction#" NAME="#VARIABLES.formName#”> 
<CFOUTPUT> 

<INPUT TyPE="hidden" NAME="#VARIABLES.idField#" VALUE="#Evaluate{ 
'getRecordInfo.' & VARIABLES.idField )#"> 

</CFOUTPUT> 

<TR> 

<TD> 

<SPAN CLASS="winTab"> 

<CF_srHELPSUMMARY shortName="adminListPanelComponents''> 

</SPAN> 

<P> 

<TABLE BORDER=0 WIDTH=100%> 

<TR> 

<TD CLASS="winTabLabel">&nbsp;Title:</TD> 

<TD CLASS="winTabField"> 

<CFINPUT 

NAME="pcTitle" 

TYPE="text" 

VALUE="#getRecordInfo.pcTitle#" 

SIZE="30" 

MAXLENGTH="30" 

REQUIRED="yes" 

MESSAGE="A Title Name must be entered" 
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</TD> 

</TR> 

<TR> 

<TD CLASS="winTabLabel">&nbsp;Information Method:</TD> 

<TD CLASS=”winTabField''> 

<CFINPUT TYPE="Radio'' NAME="pcOption" VALUE="1" CHECKED="#Iif ( 
getRecordInfo.pcOption EQ l,De( ’true' ),De{ 'false' ) )#">File 
<CFINPUT TYPE="Radio" NAME=’'pcOption" VALUE=’'2’’ CHECKED="#Iif ( 
getRecordInfo.pcOption EQ 2,De( 'true' ),De{ 'false' ) )#">Web Link 
<CFINPUT TYPE=’'Radio" NAME="pcOption" VALUE="3" CHECKED="#Iif( 
getRecordInfo.pcOption EQ 3,De( 'true' ),De( 'false' ) )#">Inline Code 
</TD> 

</TR> 

<TR> 

<TD CLASS="winTabLabel">&nbsp;File Name:</TD> 

<TD CLASS="winTabField"> 

<CFINPUT 

NAME="pcFileName" 

TYPE="text" 

VALUE="#getRecordInfo.pcFileName#" 

SIZE=''30" 

MAXLENGTH="30’' 

REQUIRED="no" 

> 

</TD> 

</TR> 

<TR> 

<TD CLASS=”winTabLabel''>&nbsp;Web Link:</TD> 

<TD CLASS="winTabField"> 

<CFINPUT 

NAME="pcLink" 

TYPE="text'’ 

VALUE=’'#getRecordInfo.pcLink#'' 

SIZE="30'’ 

MAXLENGTH=''75" 

REQUIRED=''no" 

> 

</TD> 

</TR> 

<TR> 

<TD CIjASS='’winTabLabel">&nbsp; Inline Code:</TD> 

<TD CLASS=''winTabField">&nbsp;</TD> 

</TR> 

<TR> 

<TD CLASS=’'winTabField'’ C0LSPAN=2> 

<TEXTAREA COLS=50 R0WS=5 NAME="pcInline’' 

WRAP=''soft’'><CFOUTPUT>#getRecordInfo .pcInline#</CFOUTPUT></TEXTAREA> 
</TD> 

</TR> 

</TABLE> 

</TD> 

</TR> 

</CFFORM> 

</TABLE> 

</CF srWinTab> 
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</CFIF> 


ADMINLIST?ROFTrP.FTFT DS.CFM 

<CFPARAM NAME="URL.action" DEFAULT="edit"> 

<CFSET luainFile = "main.cfm?a=tools&body=adminListProfileFields cfm"> 
<CFSET mainTable = ”tblProfileFields"> 

<CFSET idField = "pf_id"> 

<CFSET editTitle = "Profile Fields"> 

<CFSET useSource = "#VARIABLES.gvDATASOURCE CONFIG#"> 

<CFSET packet = "ProfileFields"> 

<CFSET packetList = "ProfileFieldList"> 

<CFIF URL.action EQ "View"> 

<CF_srReportEngine 

ACTION="run" 

]SIAME="listProfileFields " 

INCLUDEOPTIONS="true” 

HEADERTYPE="List" 

SYS TEM_TOOLBAR="New" 

SYSTEM_TOOLBARLINKS="#VARIABLES.mainFile#&action=add" 


<CFELSEIF URL.action EQ "Edit"> 

<CFSET foritiAction = "#VARIABLES .mainFile#&action=save"> 

<CFSET formName="forniEdit"> 

<CFELSEIF URL.action EQ "save"> 

<CFWDDX 

INPUT="#FORM.WDDXContent#" 

OUTPUT="Packet" 

ACTI0N="WDDX2CFML" 

> 

<CFSET insertCount = 0> 

<CFSET updateCount = 0> 

<CFSET deleteCount = 0> 

<CFLOOP QUERY="Packet"> 

<CFIF Packet.pf_id EQ "new"> 

<CFTRANSACTION> 

<J- insert fields into field table -> 

<CFQUERY DATASOURCE="#VARIABLES.useSource#"> 

INSERT INTO tblProfileFields ( 

pfName,pfLabel,pfSize,pfDescription,pfCstatus,pfType,pfValidationType,p 

fFailColor,pfEncrypt,pfIncludeInSearch,pfreguiredField,pfRange,pfHelpMe 
ssage,pfHelpSunimary,pfhasInterface,pfInterfaceName ) 

VALUES ( 

'#pfName#','#pfLabel#',tpfSize#,'#pfDescription#',#pfCstatus#,#pfType#, 
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#pfValidationType#,'#pfFailColor#',#pfEncrypt#,#pfIncludelnSearch#,#pfr 
equiredField#,'#pfRange#','#pfHelpMessage#','#pfHelpSuiiffaary#',#pfhaslnt 
erface#,’#pfInterfaceName#' ) 

</CFQUERY> 

<!-get new id for field-> 

<CFQUERY NAME="getNewID" DATASOURCE="#VARIABLES.useSource#"> 

SELECT Max( pf_id ) as NewID 

FROM tblProfileFields 

</CFQUERY> 

<!- link group and new field -> 

<CFQUERY DATASOURCE="#VARIABLES.useSource#”> 

INSERT INTO tblLinkFieldToProfile ( pg_id,pf_id ) 

VALUES ( #FORM.pg_id#,#getNewID.NewID# ) 

</CFQUERY> 

</CFTRANSACTI0N> 

<CFTRANSACTION> 

<!- now alter group table by adding new field requirement -> 

<CFSET tableName = "tbl" & #FORM.pgName#> 

<CFQUERY DATASOURCE="iVARIABLES.gvDATASOURCE_DATA#"> 

ALTER TABLE #VARIABLES.tableName# 

<CFSWITCH EXPRESSION="#FORM.pfType#"> 

<CFCASE VALUE="1"> 

ADD COLUMN #FORM.pfName# varchar (#FORM.pfSize#); 

</CFCASE> 

<CFCASE VALUE="2"> 

ADD COLUMN #FORM.pfName# BIT; 

</CFCASE> 

<CFCASE VALUE="3"> 

ADD COLUMN #FORM.pfName# DATETIME; 

</CFCASE> 

<CFCASE VALUE="4"> 

ADD COLUMN #FORM.pfName# SHORT; 

</CFCASE> 

<CFCASE VALUE="6"> 

ADD COLUMN #FORM.pfName# LONGTEXT; 

</CFCASE> 

</CFSWITCH> 

</CFQUERY> 

</CFTRANSACTION> 

<CFSET insertCount = insertCount + 1> 

<CFELSEIF Packet.wasEdited EQ "Delete"> 
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<CFQUERY DATASOURCE=’'#VARIABLES.useSource#"> 

DELETE FROM tblProfileGroups 
WHERE pg_id = #pg_id# 

</CFQUERY> 

<CFSET tableName = "tbl" & #pgName#> 

<CFQUERY DATASOURCE=”#VARIABLES.gvDATASOURCE DATA#"> 

DROP TABLE #VARIABLES.tableName# 

</CFQUERY> 

<CFSET deleteCount = deleteCount + 1> 

<CFELSEIF Packet.wasEdited EQ "Yes"> 

<CFQUERY DATASOURCE=’'#VARIABLES.useSource#"> 

UPDATE tblProfileFields 
SET pfName = '#pfname#', 
pfDescription = '#pfdescription#’, 
pfLabel = '#pflabel#', 
pfSize = #pfsize#, 
pfCstatus = #pfcstatus#, 
pfType = #pftype#, 
pfFailColor = '#pffailcolor#', 
pfEncrypt = #pfencrypt#, 
pfIncludelnSearch = #pfincludeinsearch#, 
pfrequiredField = #pfrequiredfield#, 
pfRange = '#pfrange#', 
pfValidationType = #pfvalidationtype#, 
pfHelpMessage = '#pfhelpmessage#', 
pfHelpSummary = '#pfhelpsiHamary#', 
pfhasinterface = #pfhasinterface#, 
pfInterfaceName = '#pfinterfacename#' 

WHERE pf_id = #pf_id# 

</CFQUERY> 

<CFSET updateCount = updateCount + 1> 

</CFIF> 

</CFLOOP> 

<CFLOCATION URL="#VARIABLES.mainFile#&pg_id=#FORM.pg id#"> 

</CFIF> 

<CFIF URL.action NEQ "view"> 

<CFQUERY NAME="getRecordInfo" DATASOURCE="#VARIABLES.useSource#"> 

SELECT 

tblProfileFields.pf_id,pfName,pfLabel,pfSize,pfDescription,pfCsta 
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tus,pfType,pfValidationType,pfFailColor,pfEncrypt,pfIncludelnSearch,pfR 
equiredField,pfRange,pfHelpMessage,pfHelpSummary,pfhasinterface,pfInter 
faceName 

FROM ( tblLinkFieldToProfile INNER JOIN tblProfileFields ON 
tblLinkFieldToProfile.pf_id = tblProfileFields.pf_id) INNER JOIN 
tblProfileGroups ON tblLinkFieldToProfile.pg_id = 
tblProfileGroups.pg_id 

WHERE tblProfileGroups.pg_id = <CFIF IsDefined{ 

"FORM.ProfileList" )>#FORM.ProfileList#<CFELSE>#URL.pg_id#</CFIF> 

ORDER BY pfName; 

</CFQUERY> 

<CFQUERY NAME=”getProfileinfo" DATASOURCE=”#YARIABLES.useSource#”> 

SELECT pg_id, pgName 

FROM tblProfileGroups 

WHERE pg_id = <CFIF IsDefined( "FORM.ProfileList” 

) >#FORM.ProfileList#<CFELSE>#URL.pg__id#</CFIF> 

</CFQUERY> 

<!- 

<CFQUERY NAME="getInterfaces” DATASOURCE="#VARIABLES.useSource#”> 

SELECT interface_odbc_id, io_naitie 

FROM tblInterface_ODBC 
ORDER BY io_naitie 

</CFQUERY> 

-> 

<SCRIPT LANGUAGE^"javascript” SRC="wddx.js”></SCRIPT> 

<SCRIPT LANGUAGE="JAVASCRIPT”> 

<CFOUTPUT> 

function onSubmit( destination ) 

{ 

document.#VARIABLES.formName#,action = destination; 
document. #VARIABLES. formName#. submit () ; 

} 

<1 -Convert query to Javascript object-> 

<CFWDDX 

ACTI0N=”CFML2JS” 

INPUT=”#getRecordInfo#" 

TOPLEVELVARIABLE="#VARIABLES.packet#” 

> 

// Add a column called "wasedited” to the recordset 
// A "Yes” in this column means the row was "touched” 

#VARIABLES.packet#.addColumn("wasedited"); 

//////////////////////////////////////////////////// 

// This function fills the SELECT list with users 
function initControls() 

{ 

with (document.#VARIABLES.formName#) 

115 




{ 

// Clear any current OPTIONS from the SELECT 
#VARIABLES.packetList#.options.length = 0; 

// For each record... 

for (var i = 0; i < #VARIABLES.packet#.getRowCount(); i++) 

// Create a new OPTION object 
NewOpt = new Option; 

NewOpt.value = #VARIABLES.packet#.pf_id[i]; 

NewOpt.text = #VARIABLES.packet#.pflabel[i]; 

// Add the new object to the SELECT list 

#VARIABLES.packetList#.options[#VARIABLES.packetList#.options.length] 
NewOpt; ^ 

} 

//UserList,selectedindex = 0; 

//fillControls (); 

} 

} 

function fillControls() 

{ 

with (document.#VARIABLES.formName#) 

// Add one to the OPTION number to get the data row number 
var RowNum = #VARIABLES.packetList#.selectedindex; 

// Populate textboxes with data in that row 
pg_id.value = "#getProfileInfo.pg_id#"; 
pgName.value = "#getProfileinfo.pgName#"; 

pfName.value = #VARIABLES.packet#.pfname[RowNum]; 
pfLabel.value = #VARIABLES.packet#.pflabel[RowNum]; 
pfSize.value = #VARIABLES.packet#.pfsize[RowNum]; 
pfDescription.value = #VARIABLES.packet#.pfdescription[RowNum]; 
pfFailColor.value = #VARIABLES.packet#.pffailcolor[RowNum]; 
pfRange.value = #VARIABLES.packet#.pfrange[RowNum]; 
pfHelpMessage.value = #VARIABLES.packet#.pfhelpmessage[RowNum]; 
pfHelpSummary.value = #VARIABLES.packet#.pfhelpsummary[RowNum]; 
pfinterfacename.value = #VARIABLES,packet#.pfinterfacename[RowNum]; 

for ( n=0;n<=6;n++ ) 

if ( #VARIABLES.packet#.pfcstatus[RowNum] == n+1) 
pfCStatus[n].checked = true; 

for ( n=0;n<6;n++ ) 

if ( #VARIABLES.packet#.pftype[RowNum] == n+1) 
pfType[n].checked = true; 

for ( n=0;n<7;n++ ) 

if ( #VARIABLES.packet#.pfvalidationtype[RowNum] == n+1) 
pfValidationType[n].checked = true; 
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if ( #VARIABLES.packet#.pfencrypt[RowNum] != 0 ) 

pfEncrypt[0],checked = true; 

else 

pfEncrypt[1].checked = true; 

if { #VARIABLES.packet#.pfincludeinsearch[RowNuin] != 0 ) 

pfIncludeInSearch[0].checked = true; 

else 

pfIncludeInSearch[l].checked = true; 

if ( #VARIABLES.packet#.pfrequiredfield[RowNum] != 0 ) 

pfRequiredField[0].checked = true; 

else 

pfRequiredField[l].checked = true; 

if ( #VARIABLES.packet#.pfhasinterface[RowNum] != 0 ) 

pfhasinterface[0].checked = true; 

else 

pfhasinterface[1].checked = true; 

} 

} 


function newRecordO 

{ 

with (document. #VARIABLES. formName#) 

{ 

// Add a new row to the recordset 
#VARIABLES.packet#.addRows(1); 

NewRow = #VARIABLES.packet#.getRowCount()-I; 


#YARIABLES.packet#.setField(NewRow, 
#VARIABLES.packet#.setField(NewRow, 
#VARIABLES.packet#.setField(NewRow, 
#VARIABLES.packet#.setField(NewRow, 
#VARIABLES.packet#.setField(NewRow, 
#VARIABLES.packet#.setField(NewRow, 
#VARIABLES.packet#.setField(NewRow, 
#VARIABLES-packet#.setField(NewRow, 
#VARIABLES.packet#.setField(NewRow, 
#VARIABLES.packet#.setField(NewRow, 
#VARIABLES.packet#.setField(NewRow, 
#VARIABLES.packet#.setField(NewRow, 
#VARIABLES.packet#.setField(NewRow, 
#VARIABLES.packet#.setField(NewRow, 
#YARIABLES.packet#.setField(NewRow, 
#VARIABLES.packet#,setField(NewRow, 
#VARIABLES.packet#.setField(NewRow, 


"pf__id", "new”) ; 

"pfname”, ”(New Field)"); 
"pflabel", "(New Field)") 
"pfsize", "10"); 
"pfdescription", ""); 
"pfcstatus", "6"); 
"pftype", "1"); 
"pfvalidationtype", "7"); 
"pffailcolor", "red"); 
"pfencrypt", "0"); 

"pfincludeinsearch", "0") 
"pfrequiredfield”, "0") ; 
"pfrange", ”0,0") ; 
"pfhelpmessage", "") ; 

"pfhelpsuinmary", " ") ; 
"pfhasinterface", "0"); 
"pfinterfacename", "") ; 


// Re-initialize the SELECT list 
initControls(); 


// Re-select the book that was selected before 
#VARIABLES.packetList#.selectedIndex = NewRow; 
fillControls{); 

} 

} 


function savetoServer() 

{ 

with (document. #VARIABLES. formName#) 
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{ 

mySerializer = new WddxSerializerO; 

#VARIABLES.packet#AsWDDX = mySerializer.serialize( #VARIABLES.packet# 
) / 

WDDXContent.value = iVARIABLES.packet#AsWDDX; 
submit{); 

} 

} 

function saveChanges() 

{ 

with (document.#VARIABLES.formName#) 

{ 

var selectedProfile = #VARIABLES.packetList#.selectedIndex; 
var RowNum = selectedProfile; 

// Populate textboxes with data in that row 
#VARIABLES.packet#.pfname[RowNum] = pfName.value; 

#VARIABLES.packet#.pflabel[RowNum] = pfLabel.value; 

#VARIABLES.packet#.pfsize[RowNum] = pfSize.value; 

#VARIABLES.packet#.pfdescription[RowNum] = pfDescription.value; 
#YARIABLES.packet#.pffailcolor[RowNum] = pfFailColor.value; 

#VARIABLES.packet#.pfrange[RowNum] = pfRange.value; 

#VARIABLES.packet#.pfhelpmessage[RowNum] = pfHelpMessage.value; 
#VARIABLES.packet#.pfhelpsummary[RowN\im] = pfHelpSijmmary.value; 
#YARIABLES.packet#.pfinterfacename[RowNum] = pfinterfacename.value; 

for ( n=0;n<6;n++ ) 

if ( pfCStatus[n].checked ) 

#YARIABLES.packet#.pfcstatus[RowNum] = pfCStatus[n].value; 

for ( n=0;n<6;n++ ) 
if ( pfType[n].checked ) 

#YARIABLES.packet#.pftype[RowNum] = pfType[n].value; 

for ( n=0;n<7;n++ ) 

if ( pfYalidationType[n].checked ) 

#YARIABLES.packet#.pfvalidationtype[RowNum] = 
pfYalidationType[n].value; 

if ( pfEncrypt[0].checked } 

#YARIABLES.packet#.pfencrypt[RowNum] = pfEncrypt[0].value; 
else 

#YARIABLES.packet#.pfencrypt[RowNum] = pfEncrypt[1].value; 

if { pfIncludeInSearch[0].checked ) 

#YARIABLES.packet#.pfincludeinsearch[RowNum] = 

pfIncludelnSearch[0].value; 

else 

#YARIABLES.packet#.pfincludeinsearch[RowNum] = 
pfIncludeInSearch[l].value; 

if ( pfRequiredField[0].checked ) 

#YARIABLES.packet#.pfrequiredfield[RowNum] = pfRequiredField[ 0 ].value; 
else 

#YARIABLES.packet#.pfrequiredfield[RowNum] = pfRequiredField[l].value; 
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if ( pfhasinterface[0].checked ) 

#VARIABLES.packet#.pfhasinterface[RowNum] = pfhasinterface[0].value; 
else 

#VARIABLES.packet#.pfhasinterface[RowNum] == pfhasinterface[1].value; 

#VARIABLES.packet#.wasedited[RowNum] = ’Yes’; 
initControls{) ; 

#VARIABLES.packetList#.selectedIndex = -1; 
#YARIABLES.packetList#.selectedIndex = selectedProfile; 

} 

} 

function deleteRecord() 

{ 

with (document.#VARIABLES.formName#) 

{ 

var selectedProfile = #VARIABLES.packetList#.selectedindex; 
var RowNum = selectedProfile; 

// Populate textboxes with data in that row 
#VARIABLES.packet#.pflabel [RowNum] = ’’MARKED FOR DELETION”; 
pfLabel.value = #VARIABLES.packet#.pflabel[RowNum]; 

#YARIABLES.packet#.wasedited[RowNum] = ’Delete’; 

initControls0; 

#VARIABLES.packetList#.selectedindex = -1; 

#VARIABLES.packetList#.selectedindex = selectedProfile; 

} 

} 

window.onload=initControls; 

</CFOUTPUT> 

</SCRIPT> 

<!- display appropriate header -> 

<!-#getProfileInfo.pgName#”-> 

<CF_srWinTab 

TABS=’’Pro file Groups, Group Fields: #getProfileInfo.pgName#, Field 
Rules,Lists,Interfaces” 

TABSELECTED=”2" 

TABURL=”javascriptronSubmit{ 

’main.cfm?a=tools&body=adminListProfiles.cfm’ ),javascriptronSubmit( 
’main.cfm?a=tools&body=adminListProfileFields.cfm’ 

),j avascript:onSubmit( 

’main. cfm?a==tools&body=adminListProf ileFieldsRules. cfm’ 

),j avascript:onSubmit( 

’main.cfm?a=tools&body=adminListProfileLists.cfm’ 

),javascriptronSubmit( ’main.cfm?a=tools&body=adminListInterfaces.cfm’ 
)” 

SYSTEM_TOOLBAR=”New,Save,Save to Server,Delete,Undo" 
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SYSTEM_TOOLBARLINKS="javascript:newRecord(),javascript:saveChanges 0 ,ja 

'^®'^®toServer(),j avascript:deleteRecord(),j avascript:fillContro 

Is {) " 


<TABLE BORDER=0 WIDTH=100%> 


<TR> 

<TD> 

<SPAN CLASS="winTab"> 

<CF_srHELPSUMMARY shortName="adminProfileFields"> 

</SPAN> 

<CFFORM ACTION="#VARIABLES.formAction#" NAME="#VARIABLES.forinName#"> 
<INPUT TYPE="hidden" NAME="WDDXContent” VALUE=""> 

<TABLE BORDER=0 WIDTH=100%> 

<CFOUTPUT> 

<INPUT NAME="pgName" TYPE="hidden" VALUE="#getProfileInfo.pgName#"> 
<INPUT NAME="pg_id’' TYPE=”hidden" VALUE="#getProfileInfo.pg id#"> 
</CFOUTPUT> 

<TR> 

<TD CLASS="winTabLabel” ALIGN="center" WIDTH=40%>&nbsp;PROFILE 
FIELDS</TD> 

<TD CLASS="winTabLabel" ALIGN="center">&nbsp;PROPERTIES</TD> 

</TR> 

<TR> 

<TD CLASS="winTabField'' WIDTH=40% ALIGN="center" VALIGN="tOD"> 
<CFOUTPUT> 


<SELECT NAME="#VARIABLES.packetList#" SIZE="10" 
onCHANGE="fillControls 0 "> 

<OPTION>==========(loading...)========== 

</SELECT> 

</CFOUTPUT> 

</TD> 

<TD CLASS="winTabField" VALIGN="top"> 


<TABLE BORDER=0 WIDTH=100%> 

<TR> 

<TD CLASS="winTabField" COLSPAN=2><B>STRUCTURE</B></TD> 

</TR> 

<TR> 

<TD CLASS="winTabField">Naine:</TD> 

<TD CLASS="winTabField"> 

<INPUT CLASS="stdTextBox" NAME="pfNaitte" TYPE="text" SIZE="30" 
MAXLENGTH="30"> 

</TD> 

</TR> 

<TR> 

<TD CLASS="winTabField">Label:</TD> 

<TD CIiASS="winTabField"> 

■<INPUT CLASS="stdTextBox" NAME="pfLabel" TYPE=”text" SIZE=”30" 
MAXLENGTH="30"> 

</TD> 

</TR> 

<TR VALIGN="top"> 

<TD CLASS="winTabField">Description:</TD> 

<TD CLASS="winTabField”> 
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<TEXTAREA CLASS="stdTextBox” COLS=30 R0WS=3 NAME="pfDescription” 
WRAP= "soff'X / TEXTAREA> 

</TD> 

</TR> 

<TR> 

<TD CLASS=”winTabField’'>Type:</TD> 

<TD CLASS="winTabField"> 

<INPUT NAME="pfType" TYPE="radio" VALUE="l">Text 
<INPUT NAME="pfType" TYPE="radio" VALUE="2">T/F 
<INPUT NAME=’'pfType" TYPE="radio" VALUE=”3''>Date 
</TD> 

</TR> 

<TR> 

<TD CLASS="winTabField">&nbsp;</TD> 

<TD CLASS="winTabField"> 

<INPUT NAME="pfType" TYPE="radio" VALUE="4">Nuinber 
<INPUT NAME="pfType" TYPE="radio" VALUE="5">List 
<INPUT NAME="pfType" TYPE="radio" VALUE="6”>Memo 
</TD> 

</TR> 

<TR> 

<TD CLASS="winTabField">Size:</TD> 

<TD CLASS="winTabField"> 

<INPUT CLASS="stdTextBox" NAME="pfSize" TYPE="text" SIZE="5" 
MAXLENGTH="2"> 

</TD> 

</TR> 

<TR> 

<TD CLASS="winTabField">Validation:</TD> 

<TD CLASS="winTabField"> 

<INPUT NAME="pfValidationType" TYPE="radio" VALUE="l">Date 
<INPUT NAME="pfValidationType" TYPE="radio" VALUE="2">SSN 
<INPUT NAME="pfValidationType" TYPE="radio" VALUE="3">US Phone 
</TD> 

</TR> 

<TR> 

<TD CLASS="winTabField">&nbsp;</TD> 

<TD CLASS="winTabField"> 

<INPUT NAME="pfValidationType" TYPE="radio" VALUE="4">Number 
<INPUT NAME="pfValidationType" TYPE="radio" VALUE="5">Email 
<INPUT NAME="pfValidationType" TYPE="radio" VALUE="6">Web 
<INPUT NAME="pfValidationType” TYPE="radio" VALUE="7">None 
</TD> 

</TR> 

<TR> 

<TD CLASS="winTabField">Range (n,n):</TD> 

<TD CLASS="winTabField"> 

<INPUT CLASS="stdTextBox" NAME="pfRange" TYPE="text" SIZE="5" 
MAXLENGTH="10"> 

</TD> 

</TR> 

<TR> 

<TD CLASS="winTabField">Required Field?</TD> 

<TD CLASS="winTabField"> 

<INPUT NAME="pfReguiredField" TYPE="radio" VALUE=”l">Yes 
<INPUT NAME="pfRequiredField" TYPE="radio” VALUE="0">No 
</TD> 
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</TR> 

<TR> 

<TD CLASS="winTabField" C0LSPAN=2><B>ACTI0NS</B></TD> 

</TR> 

<TR> 

<TD CLASS="winTabField">Failed CStatus:</TD> 

<TD CLASS="winTabField"> 

<INPUT NAME="pfCStatus" TYPE="radio" VALUE="1">1 
<INPUT NAME="pfCStatus" TyPE="radio" VALUE="2">2 
<INPUT NAME=''pfCStatus" TyPE="radio" VALUE="3">3 
<INPUT NAME="pfCStatus" TyPE=”radio" VALUE="4”>4 
<INPUT NAME="pfCStatus" TyPE="radio" VALUE="5">5 
<INPUT NAME="pfCStatus" TyPE="radio'' VALUE="6">None 
</TD> 

</TR> 

<TR> 

<TD CLASS="winTabField">Failed Color:</TD> 

<TD CLASS="winTabField"> 

<INPU'T CLASS="stdTextBox" NAME="pfFailColor" TyPE="text" SIZE="10" 
MAXLENGTH="10"> 

</TD> 

</TR> 

<TR> 

<TD CLASS="winTabField" C0LSPAN=2><B>MISCELLEN0US</B></TD> 

</TR> 

<TR> 

<TD CLASS="winTabField">Encrypt Data?</TD> 

<TD CLASS="winTabField"> 

<INPUT NAME="pfEncrypt" TyPE="radio" VALUE="l”>yes 
<INPUT NAME=''pfEncrypt" TyPE="radio" VALUE="0">No 
</TD> 

</TR> 

<TR> 

<TD CLASS="winTabField">Include in Search?</TD> 

<TD CLASS="winTabField"> 

<INPUT NAME="pfIncludelnSearch" TyPE="radio" VALUE="l">yes 
<INPUT NAME="pfIncludeInSearch" TyPE="radio" YALUE="0">No 
</TD> 

</TR> 

<TR> 

<TD CLASS="winTabField" COLSPAN=2><B>INTERFACE</B></TD> 

</TR> 

<TR> 

<TD CLASS="winTabField">Has an Interface?</TD> 

<TD CIiASS="winTabField"> 

<INPUT NAME="pfhasinterface" TyPE="radio" VALUE="l">yes 
<INPUT NAME="pfhasinterface" TyPE="radio" VALUE="0">No 
</TD> 

</TR> 

<TR> 

<TD CLASS="winTabField">Interface Name:</TD> 

<TD CLASS="winTabField"> 

<INPUT CLASS="stdTextBox" NAME="pfinterfacenaitie" TyPE="text" SIZE="30" 
MAXLENGTH="30"> 

</TD> 

</TR> 

<TR> 
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<TD CLASS="winTabField” C0LSPAN=2><B>HELP SUPPORT</B></TD> 

</TR> 

<TR> 

<TD CLASS=”winTabField">Status Bar:</TD> 

<TD CLASS="wiiiTabField"> 

<INPUT CLASS="stdTextBox" NAME="pfHelpMessage" TYPE="text" SIZE=" 
MAXLENGTH="75"> 

</TD> 

</TR> 

<TR> 

<TD CLASS="winTabField" VALIGN="top">Popup Window:</TD> 

<TD CLASS="winTabField"> 

<TEXTAREA CLASS=”stdTextBox" COLS=30 R0WS=3 NAME="pfHelpSuinmary" 
WRAP="soft"></TEXTAREA> 

</TD> 

</TR> 

</TABLE> 

</TD> 

</TR> 

</TABLE> 

</CFFORM> 

</TD> 

</TR> 

</TABLE> 

</CF_srWinTab> 

</CFIF> 


ADMINLISTPROFILES.CFM 


<CFPARAM NAME="URL,action" DEFAULT="edit”> 

<CFSET mainFile = "main.cfm?a=tools&body=aditiinListProflies.cfiii"> 
<CFSET mainTable = "tblProfileGroups"> 

<CFSET idField = "pg_id"> 

<CFSET editTitle = "Profile Groups"> 

<CFSET useSource = "#VARIABLES.gvDATASOURCE_CONFIG#"> 

<CFIF NOT #CompareNoCase( URL.action,"View" )#> 

<CF_srReportEngine 

ACTION="run" 

NAME="listProfileGroups" 

INCLUDEOPTIONS="true" 

HEADERTyPE="List" 

SYSTEM_TOOLBAR="New" 

SYSTEM TOOLBARLINKS="#VARIABLES.mainFile#&action=add" 


<CFELSEIF NOT #CompareNoCase( URL.action,"Edit" )#> 

<CFSET title = "#VARIABLES.editTitle#"> 

<CFSET formAction = "#VARIABLES.mainFile#&action=save"> 
<CFSET fonQNaine="formEdit"> 

<CFELSEIF NOT #CompareNoCase( URL.action,"Save" )#> 
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<CFWDDX 

INPUT="#FORM.WDDXContent #" 

OUTPUT="EditedProfiles" 

ACTI0N="WDDX2CFML" 

> 

<CFSET insertCount = 0> 

<CFSET updateCount = 0> 

<CFSET deleteCount = 0> 

<CFLOOP QUERY="EditedProfiles"> 

<CFIF NOT #CompareNoCase( EditedProfiles.pg_id,"new" )#> 

<CFQUERY DATASOURCE="#VARIABLES.useSource#"> 

INSERT INTO tblProfileGroups { 

pgName,pgDescription,pgLabel,pgLayoutType,pgLayoutCols ) 

VALUES ( 

j #pgName#','#pgDescription#',•#pgLabel#’,#pgLayoutType#,#pgLayoutCols# 
</CFQUERY> 

<CFSET tableName = "tbl" & #pgName#> 

<CFSET primaryField = #pgNaiae# & "_id"> 

<CFQUERY DATASOURCE="#VARIABLES.gvDATASOURCE_DATA#"> 

CREATE TABLE #VARIABLES.tableName# 

( 

#VARIABLES.primaryField# Counter, 

CONSTRAINT pk_constraint PRIMARY KEY (#VARIABLES.primaryField#) 
</CFQUERY> 

<CFSET insertCount = insertCount + 1> 

<CFELSEIF NOT #CompareNoCase{ EditedProfiles.wasEdited,"Delete" )#> 

<CFQUERY DATASOURCE="#VARIABLES.useSource#"> 

DELETE FROM tblProfileGroups 
WHERE pg_id = #pg_id# 

</CFQUERY> 

<CFSET tableName = "tbl" & #pgName#> 

<CFQUERY DATASOURCE="#VARIABLES.gvDATASOURCE DATA#”> 

DROP TABLE #VARIABLES.tableName# 

</CFQUERY> 

<CFSET deleteCount = deleteCount + 1> 
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<CFELSEIF NOT tCompareNoCase( EditedProfiles.wasEdited,"Yes" )#> 

<CFQUERY DATASOURCE="#VARIABLES.useSource#"> 

UPDATE tblProfileGroups 
SET pgName = '#pgName#', 
pgDescription = ’#pgDescription#', 
pgLabel = '#pgLabel#', 
pgLayoutType = #pgLayoutType#, 
pgLayoutCols = #pgLayoutCols# 

WHERE pg_id = #pg_id# 

</CFQUERY> 

<CFSET updateCount = updateCount + 1> 

</CFIF> 

</CFLOOP> 

<CFLOCATION URL="#VARIABLES.mainFile#"> 

</CFIF> 

<CFIF tCompareNoCase{ URL.action,"View" )#> 

<CFQUERY NAME="getRecordInfo" DATASOURCE="#VARIABLES.useSource#"> 

SELECT pg_id, pgName, pgDescription, pgLabel, pgLayoutType, 

pgLayoutCols 

FROM tVARIABLES.mainTable# 

ORDER BY pgName 

</CFQUERY> 

<SCRIPT LANGUAGE="javascript" SRC="wddx.js"></SCRIPT> 

<SCRIPT IANGUAGE="JAVASCRIPT"> 

function onSiibmit { destination ) 

{ 

<CFOUTPUT> 

document.tVARIABLES.formName#.action = destination; 
document.tVARIABLES.formName#.submit(); 

</CFOUTPUT> 

} 

<!- Convert query to Javascript object -> 

<CFWDDX 

ACTI0N="CFML2JS" 

INPUT="#getRecordInfo#" 

TOPLEVELVARIABLE="Profiles" 


// Add a column called "wasedited" to the recordset 
//A "Yes" in this column means the row was "touched" 
Profiles.addColumn("wasedited"); 

//////////////////////////////////////////////////// 
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// This function fills the SELECT list with users 
function initControls() 

{ 

with (document.<CFOUTPUT>#VARIABLES.fonnName#</CFOUTPUT>) 

// Clear any current OPTIONS from the SELECT 
ProfileList.options.length = 0; 

// For each record... 

for (var i = 0; i < Profiles.getRowCount(); i++) 

// Create a new OPTION object 
NewOpt = new Option; 

NewOpt.value = Profiles.pg_id[i]; 

NewOpt.text = Profiles.pgname[i]; 

// Add the new object to the SELECT list 

ProfileList.options[ProfileList.options.length] = NewOpt; 

} 

//UserList.selectedIndex = 0; 

//fillControls{); 

} 

} 

function fillControls() 

{ 

with (document.<CFOUTPUT>#VARIABLES.formName#</CFOUTPUT>) 

// Add one to the OPTION number to get the data row number 
var RowNum = ProfileList.selectedindex; 

// Populate textboxes with data in that row 
pgName.value = Profiles.pgname[RowNum]; 
pgDescription.value = Profiles.pgdescription[RowNiam] ; 
pgLabel.value = Profiles.pglabel[RowNum]; 

for ( n=0;n<2;n++ ) 

if ( Profiles.pglayouttype[RowNum] == n+1) 
pgLayoutType[n].checked = true; 

if ( Profiles.pglayoutcols[RowNum] == 2) 
pgLayoutCols[0].checked = true; 

if ( Profiles.pglayoutcols[RowNum] == 4) 
pgLayoutCols[1].checked = true; 

} 

} 

function newRecordO 

{ 

with (document.<CFOUTPUT>#VARIABLES.formName#</CFOUTPUT>) 

// Add a new row to the recordset 
Profiles.addRows(1); 
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NewRow = Profiles.getRowCount0-1; 

Profiles.setField(NewRow, "pg_id", "new”); 

Profiles.setField(NewRow, "pgnartie", "(New Profile)"); 
Profiles.setField(NewRow, "pglabel”, ””); 

Profiles.setField(NewRow, "pgdescription”, ””)/ 

Profiles.setField(NewRow, "pglayouttype”, "1"); 

Profiles.setField(NewRow, "pglayoutcols”, ”2”); 

// Re-initialize the SELECT list 
initControls()/ 

// Re-select the book that was selected before 
ProfileList.selectedindex = NewRow; 
fillControls(); 

} 

} 

function savetoServer() 

{ 

with (document .<CFOUTPUT>#VARIABLES. forinName#</CFOUTPUT>) 

{ 

mySerializer = new WddxSerializer(); 

profilesAsWDDX = mySerializer.serialize( Profiles ); 

WDDXContent.value = profilesAsWDDX; 

submit 0 ; 

} 

} 

function saveChanges() 

{ 

with (document. <CFOUTPUT>#VARIABLES. forinName#</CFOUTPUT>) 
{ 

var selectedProfile = ProfileList.selectedindex; 
var RowNum = selectedProfile; 

// Populate textboxes with data in that row 
Profiles.pgname[RowNum] = pgName.value; 

Profiles. pgdescription [RowNijon] = pgDescription. value; 
Profiles.pglabel[RowNum] = pgLabel.value; 

for ( n=0;n<2;n++ ) 

if ( pgLayoutType[n].checked ) 

Profiles.pglayouttype[RowNum] = pgLayoutType[n].value; 

for ( n=0;n<2;n++ ) 

if ( pgLayoutCols[n].checked ) 

Profiles.pglayoutcols[RowNum] = pgLayoutCols[n].value; 
Profiles.wasedited[RowNum] = ’Yes’; 
initControls(); 

ProfileList.selectedindex = -1; 

ProfileList.selectedindex = selectedProfile; 

} 

} 
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function deleteRecord() 

{ 

with (document.<CFOUTPUT>#VARIABLES.formName#</CFOUTPUT>) 

var selectedProfile = ProfileList.selectedindex; 
var RowNum = selectedProfile; 

// Populate textboxes with data in that row 
Profiles.pglabel [RowNim] = "MARPCED FOR DELETION"; 
pgLabel.value = Profiles.pglabel[RowNum]; 

Profiles.wasedited[RowNum] = 'Delete'; 

initControls(); 

ProfileList.selectedindex = -1; 

ProfileList.selectedindex = selectedProfile; 

} 

} 

window.onload=initControls; 

</SCRIPT> 

<!- display appropriate header -> 

<CF_srWinTab 

TABS="Profile Groups,Group Fields,Field Rules,Lists,Interfaces" 
TABSELECTED="1" 

TABURL="javascript:onSubmit( 

main.cfm?a—tools&body=adminListProfiles.cfm' ), javascript:onSubmit{ 
'main.cfm?a=tools&body=adminListProfileFields.cfm' 

),j avascript:onSubmit( 

'main.cfm?a=tools&body=adminListProfileFieldsRules.cfm' 

),j avascript:onSubmit( 

'main.cfm?a=tools&body=adminListProfileLists.cfm' 

),javascript:onSubmit( 'main.cfm?a=tools&body=adminListInterfaces.cfm' 

SYSTEM_TOOLBAR="New,Save,Save to Server,Delete,Undo" 
SYSTEM_TOOLBARLINKS="javascript rnewRecord(),javascript:saveChanges(),ja 
vascript:savetoServer(),j avascript:deleteRecord(),j avascript:fillContro 
Is () " 


<TABLE BORDER=0 WIDTH=100%> 

<TR> 

<TD> 

<SPAN CLASS="winTab"> 

<CF_srHELPSUMM2\RY shortName="adminProfiles"> 

</SPAN> 

<CFFORM ACTION="#VARIABLES.formAction#" NAME="#VARIABLES.formName#"> 
<INPUT TYPE="hidden" NAME="WDDXContent" VALUE=""> 

<TABLE BORDER=0 WIDTH=100%> 

<TR> 

<TD CLASS="winTabLabel" ALIGN="center" WIDTH=40%>&nbsp;PROFILE 
GROUPS</TD> 
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<TD CLASS="winTabLabel" ALIGN="center">&nbsp;PROPERTIES</TD> 
</TR> 

<TR> 

<TD CLASS="winTabField" WIDTH=40% ALIGN="center'' VALIGN="top"> 
<SELECT NAME="ProfileList" SIZE="10" onCHANGE="fillControls{)"> 
<OPTION>==========(loading...)========== 

</SELECT> 

</TD> 

<TD CLASS="winTabField" VALIGN="top"> 

<TABLE BORDER=0 WIDTH=100%> 

<TR> 

<TD CLASS="winTabField">Naine:</TD> 

<TD CLASS="winTabField''> 

<INPUT CLASS="stdTextBox" NAME="pgName" TYPE="text" SIZE="30" 
MAXLENGTH="20"> 

</TD> 

</TR> 

<TR> 

<TD CLASS="winTabField">Tab Label:</TD> 

<TD CLASS="winTabField”> 

<INPUT CLASS="stdTextBox" NAME="pgLabel" TYPE="text" SIZE="30" 
MAXLENGTH="30"> 

</TD> 

</TR> 

<TR VALIGN="top"> 

<TD CIiASS="winTabField">Description:</TD> 

<TD CLASS="winTabField'’> 

<TEXTAREA CIiASS="stdTextBox" COLS=30 R0WS=3 NAME="pgDescription" 
WRAP=" so ft "X / TEXTAREA> 

</TD> 

</TR> 

<TR> 

<TD CIjASS="winTabField">Layout Type:</TD> 

<TD CLASS="winTabField"> 

<INPUT NAME="pgLayoutType" TYPE="radio" VALUE="l">Single Page 
<INPUT NAME="pgLayoutType" TYPE="radio" VALUE="2">Datasheet 
</TD> 

</TR> 

<TR> 

<TD CIiASS="winTabField">Layout Columns:</TD> 

<TD CLASS="winTabField"> 

<INPUT NAME="pgLayoutCols" TYPE="radio" VALUE="2">Single 
<INPUT NAME="pgLayoutCols" TYPE="radio" VALUE="4">Double 
</TD> 

</TR> 

</TABLE> 

</TD> 

</TR> 

</TABLE> 

</CFFORM> 

</TD> 

</TR> 

</TABLE> 

</CF srWinTab> 
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</CFIF> 


ADMIM.ISTSUMMARY.CFM 


<CFPARAM NAME="URL.action” DEFAULT="View"> 

<CFSET mainFile = "main.cfm?a=tools&body=adminListSuinmarY.cfm"> 
<CFSET mainTable = "tblSummary"> 

<CFSET idField = "suinmary_id"> 

<CFSET addTitle = "CREATE A NEW SUMMARY"> 

<CFSET editTitle = "EDIT SX]MMARY"> 

<CFIF URL.action EQ "View"> 

<CF_srReportEngine 

ACTION="run" 

NAME="1istSummary" 

INCLUDEOPTIONS="true" 

HEADERTYPE="List" 

SYSTEM_TOOLBAR="New" 

SYSTEM_TOOLBARLINKS="#VARIABLES.mainFile#&action=add" 

> 

<CFELSEIF URL.action EQ "Add"> 

<CFSET title = "#VARIABLES.addTitle#"> 

<CFSET formAction = "#VARIABLES.mainFile#&action=saveNew"> 

<CFSET fonnNanie="formAdd"> 

<CFELSEIF URL.action EQ "Edit"> 

<CFSET title = "iVARIABLES.editTitle#"> 

<CFSET formAction = "#VARIABLES.mainFile#&action=save"> 

<CFSET formName="foritiEdit"> 

<CFELSEIF URL.action EQ "saveNew"> 

<CFINSERT DATASOURCE="#VARIABLES.gvDATASOURCE_CONFIG#" 
TABLENAME="#VARIABLES.mainTable#"> 

<CFLOCATION URL="#VARIABLES.mainFile#”> 

<CFELSEIF URL.action EQ "save"> 

<CFUPDATE DATASOURCE="#VARIABLES.gvDATASOURCE_CONFIG#" 
TABLENAME="#VARIABLES.mainTable#"> 

<CFLOCATION URL="#VARIABLES.mainFi1e#"> 

<CFELSEIF URL.action EQ "delete"> 

<CFQUERY NAME="deleteInfo" 

DATASOURCE=" #VARIABLES . gvDATASOURCE_CONFIG#" > 

DELETE 

FROM tVARIABLES.mainTable# 

WHERE #VARIABLES.idField# = #Evaluate( ’URL.' & VARIABLES.idField )# 


</CFQUERY> 
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<CFLOCAT I ON URL= " #VAR TABLES .mainFile#''> 


</CFIF> 

<CFIF URL.action NEQ "View"> 

<CFQUERY NAME="getRecordInfo" 

DATASOURCE="#VARIABLES.gvDATASOURCE_CONFIG#"> 

SELECT * 

FROM #VARIABLES.mainTable# 

WHERE #VARIABLES.idField# = <CFIF URL.action EQ "Edit">#Evaluate( 

’URL.' & VARIABLES.idField )#<CFELSE>-1</CFIF> 

</CFQUERY> 

<!- display appropriate header -> 

<CF_srWinTab 
TABS="#VARIABLES.title#" 

SYSTEM_TOOLBAR="Save,List Siimmary" 

SYSTEM_TOOLBARLINKS="j avascript:document.#VARIABLES.formName#.submit(), 
main.cfm?a=tools&body=adminListSummary.cfm" 

> 

<TABLE BORDER=0 WIDTH=100%> 

<CFFORM ACTION="#VARIABLES.fonnAction#" NAME="#VARIABLES.formName#"> 
<CFOUTPUT> 

<INPUT TYPE="hidden" NAME="#VARIABLES.idField#" VALUE="#Evaluate( 
'getRecordInfo.' & VARIABLES.idField )#"> 

</CFOUTPUT> 

<TR> 

<TD> 

<SPAN CLASS="winTab"> 

<CF_srHELPSUMMARY shortName="adminListSummary"> 

</SPAN> 

<P> 

<TABLE BORDER=0 WIDTH=100%> 

<TR> 

<TD CLASS="winTabLabel">&nbsp;Short Name:</TD> 

<TD CIiASS="winTabField"> 

<CFINPUT 

NAME="shortName" 

TYPE="text" 

VALUE="#getRecordInfo.shortName#" 

SIZE="30" 

MAXLENGTH="20" 

REQUIRED="yes" 

MESSAGE="A Summary Short Name must be entered" 

> 

</TD> 

</TR> 

<TR> 

<TD CLASS="winTabLabel">&nbsp;Summary:</TD> 

<TD CLASS="winTabField">&nbsp;</TD> 

</TR> 

<TR> 
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<TD CLASS="winTabField'' C0LSPAN=2> 

<TEXTAREA COLS=50 R0WS=5 NAME="summary" 

WRAP="soft"><CFOUTPUT>#getRecordInfo.summary#</CFOUTPUT></TEXTAREA> 

</TD> 

</TR> 

</TABLE> 

</TD> 

</TR> 

</CFFORM> 

</TABLE> 

</CF_srWinTab> 

</CFIF> 


ADMINLISTUSERGRQUPS.CFM 


<CFPARAM NAME="URL.action" DEFAULT="view"> 

<CFSET mainFile = "main.cfm?a=tools&body=adminListUserGroups.cfm"> 
<CFSET mainTable = "tblGroups"> 

<CFSET idField = "usergroup_id"> 

<CFSET addTitle = "CREATE A NEW GROUP"> 

<CFSET editTitle = "EDIT GROUP"> 

<CFSET useSource = "#VARIABLES.gvDATASOURCE_USER#"> 

<CFIF URL.action EQ "View"> 

<CF_srReportEngine 

ACTION="run" 

NAME="listUserGroups" 

INCLUDEOPTIONS="true" 

HEADERTYPE="List" 

SYS TEM_TOOLBAR="New" 

SYSTEM_TOOLBARLINKS="#VARIABLES.mainFile#&action=add" 


<CFELSEIF URL.action EQ "Add"> 

<CFSET title = "#VARIABLES.addTitle#"> 

<CFSET formAction = "#VARIABLES.mainFile#&action=savenew"> 
<CFSET formName="formAdd"> 

<CFELSEIF URL.action EQ "Edit"> 

<CFSET title = "#VARIABLES.editTitle#"> 

<CFSET formAction = "#VARIABLES.mainFile#&action=save"> 
<CFSET formName="formEdit"> 

<CFELSEIF URL.action EQ "saveNew"> 

<CFINSERT DATASOURCE="#VARIABLES.useSource#" 
TABLENAME="#VARIABLES.mainTable#"> 

<CFLOCATION URL="#VARIABLES.mainFile#"> 

<CFELSEIF URL.action EQ "save"> 
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<CFUPDATE DATASOURCE=”#VARIABLES.useSource#" 

TABLENAME="#VARIABLES.mainTable#"> 

<CFLOCATION URL="#VARTABLES.mainFile#"> 

<CFELSEIF URL.action EQ "delete''> 

<CFQUERY NAME="deleteInfo" DATASOURCE="#VARIABLES.useSource#"> 

DELETE 

FROM #VARIABLES.mainTable# 

WHERE #VARIABLES.idField# = #Evaluate{ ’URL.' & VARIABLES.idField )# 
</CFQUERY> 

<CFLOCATION URL="#VARIABLES.mainFile#"> 

</CFIF> 

<CFIF URL.action NEQ ”view"> 

<CFQUERY NAME="getRecordInfo" DATASOURCE=''#VARIABLES.useSource#"> 
SELECT * 

FROM SVARIABLES.mainTable# 

WHERE iVARIABLES.idField# = <CFIF URL.action EQ "Edit">#Evaluate{ 

'URL.' & VARIABLES.idField )#<CFELSE>-1</CFIF> 

</CFQUERY> 

<!- display appropriate header -> 

<CF_srWinTab 
TABS="#VARIABLES.title#" 

SYSTEM_TOOLBAR="Save,List Groups" 

SYSTEM_TOOLBARLINKS="j avascript:document.#VARIABLES.formName#.submit() , 
tVARIABLES.mainFile#" 


<TABLE BORDER=0 WIDTH=100%> 

<CFFORM ACTION="#VARIABLES.formAction#" NAME="#VARIABLES.formName#"> 
<CFOUTPUT> 

<INPUT'TYPE="hidden" NAME="#VARIABLES.idField#" VALUE="#Evaluate( 

'getRecordInfo.' & VARIABLES.idField )#”> 

</CFOUTPUT> 

<TR> 

<TD> 

<SPAN CLASS="winTab"> 

<CF_srHELPSUMMARY shortName="adminUserGroups"> 

</SPAN> 

<P> 

<TABLE BORDER=0 WIDTH=100%> 

<TR> 

<TD CLASS="winTabLabel''>&nbsp;Name:</TD> 

<TD CLASS="winTabField"> 

<CFINPUT 
NAME="ug_name" 

TYPE="text" 

VALUE="#getRecordInfo.ug_name#" 
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SIZE="30" 

MAXLENGTH="20" 

REQUIRED="yes" 

MESSAGE="A User Group Name must be entered" 

> 

</TD> 

</TR> 

<TR> 

<TD CLASS="winTabLabel">&nbsp;Description:</TD> 
<TD CLASS="winTabField"> 

<CFINPUT 

NAME="ug_description" 

TYPE="text" 

VALUE="#getRecordInfo.ug_description#" 

SIZE="30" 

MAXLENGTH="40" 

REQUIRED="yes" 

MESSAGE="A Group Description must be entered" 

> 

</TD> 

</TR> 

</TABLE> 

</TD> 

</TR> 

</CFFORM> 

</TABLE> 

</CF_srWinTab> 

</CFIF> 


ADMINLISTUSERS.CFM 


<CFPARAM NAME="URL.action" DEFAULT="edit"> 

<CFSET mainFile = "main.cfm?a=tools&body=adminListUsers.cfm"> 
<CFSET mainTable = "tblUserAccounts"> 

<CFSET idField = "user_id"> 

<CFSET editTitle = "USER ACCOUNTS"> 

<CFSET useSource = "#VARIABLES.gvDATASOURCE_USER#"> 

<CFIF URL.action EQ "View"> 

<CF_srReportEngine 

ACTION="run" 

NAME="listUsers" 

INCLUDEOPTIONS="true" 

HEADERTYPE="List" 

SYSTEM_TOOLBAR="New” 

SYSTEM_TOOLBARLINKS="#VARIABLES.mainFile#&action=add" 

> 

<CFELSEIF URL.action EQ "Edit"> 

<CFSET title = "#VARIABLES.editTitle#"> 

<CFSET formAction = "#VARIABLES.mainFile#&action=save"> 

<CFSET formName="formEdit"> 
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<CFELSEIF URL.action EQ "save"> 

<CFWDDX 

INPUT="#FORM.WDDXContent#" 

OUTPUT="EditedUsers" 

ACTION="WDDX2 CFML" 

> 

<CFSET insertCount = 0> 

<CFSET updateCount = 0> 

<CFSET deleteCount = 0> 

<CFLOOP QUERY="EditedUsers"> 

<CFIF EditedUsers.user_id EQ "new"> 

<CFQUERy DATASOURCE="#VARIABLES.useSource#"> 

INSERT INTO tblUserAccounts 

(Iname,fname,rank,ssn,phone,email, command,user_loginid,user_password, ex 
pire,force_password,locked ) 

VALUES ( 

'#lname#','#fname#','#rank#','#ssn#','#phone#’,'#email#','#command#', '# 
user_loginid#','#user_password#',iCreateODBCDate( dateexpire 
)#,#force_password#,flocked# ) 

</CFQUERY> 

<CFSET insertCount = insertCount + 1> 

<CFELSEIF EditedUsers.wasEdited EQ "Delete"> 

<CFQUERY DATASOURCE="fVARIABLES.useSource#"> 

DELETE FROM tblUserAccounts 
WHERE user_id = #user_id# 

</CFQUERY> 

<CFSET deleteCount = deleteCount + 1> 

<CFELSEIF EditedUsers.wasEdited EQ "Yes"> 

<CFQUERY DATASOURCE="fVARIABLES.useSource#"> 

UPDATE tblUserAccounts 

SET Iname = '#lname#', 

fname = ’ #fname#', 

rank = 'frank# *, 

ssn = 'fssn#', 

phone = 'fphone#', 

email = 'femail#', 

command = 'fcommand#', 

user_loginid = '#user_loginid#', 

user_password = 'fuser_password#', 

expire = fCreateODBCDate( dateexpire )#, 

force_password = #force_password#, 

locked = flocked# 

WHERE user_id = #user_id# 

</CFQUERY> 

<CFSET updateCount = updateCount + 1> 

</CFIF> 
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</CFLOOP> 


<CFLOCATION URL="#YARIABLES.mainFile#”> 

</CFIF> 

<CFIF URL.action NEQ ’’view"> 

<CFQUERY NAME="getRecordInfo" DATASOURCE="#VARIABLES.useSource#"> 

SELECT Iname & & fname AS fullname, user_id, Iname,fname, 

rank,ssn,phone,email,command,user_loginid,formate expire,'mm/dd/yyyy' ) 
AS dateExpire,force_password, 

locked, template,last_logon,login_attempts,user_password 
FROM #VARIABLES.mainTable# 

ORDER BY Iname 

</CFQUERY> 

<SCRIPT LANGUAGE="javascript" SRC="wddx.js"></SCRIPT> 

<SCRIPT LANGUAGE="JAVASCRIPT"> 

<!- Convert query to Javascript object -> 

<CFWDDX 

ACT10N="CFML2 JS" 

INPUT="#getRecordInfo#" 

TOPLEVELVARIABLE="Users" 


// Add a column called "wasedited" to the recordset 
// A "Yes" in this column means the row was "touched" 
Users.addColumn("wasedited"); 

//////////////////////////////////////////////////// 

// This function fills the SELECT list with users 
function initControls() 

{ 

with (document.<CFOUTPUT>#VARIABLES.formName#</CFOUTPUT>) 

{ 

// Clear any current OPTIONS from the SELECT 
UserList.options.length = 0; 

// For each record... 

for (var i = 0; i < Users.getRowCount(); i++) 

{ 

// Create a new OPTION object 
NewOpt = new Option; 

NewOpt.value = Users.user_id[i]; 

NewOpt.text = Users.fullname[i]; 

// Add the new object to the SELECT list 
UserList.options[UserList.options.length] = NewOpt; 

} 

//UserList.selectedindex = 0; 

//fillControls(); 
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} 

} 


function fillControls() 

{ 

with (document. <CFOUTPUT>#VARIABLES . f orinName#</CFOUTPUT>) 

{ 

// Add one to the OPTION number to get the data row number 
var RowNum = UserList.selectedindex; 

// Populate textboxes with data in that row 

Iname. value = Users.Iname [RowNum] ; 

fname.value = Users.fname [RowNum] ; 

rank.value = Users.rank[RowNum]; 

ssn.value = Users.ssn[RowNum]; 

command, value = Users, command [RowNum] ; 

phone.value = Users.phone[RowNum]; 

email-value = Users .email [RowNum] ; 

expire.value = Users.dateexpire[RowNum]; 

user_loginid.value = Users.user_loginid[RowNum]; 

user_password.value = Users.user_password[RowNum]; 

if ( Users.force_password[RowNum] != 0 ) 

force_password[0].checked = true; 

else 

force_password[l].checked = true; 
if { Users, locked [RowNum] !== 0 ) 
locked[0].checked = true; 
else 

locked[1].checked = true; 

} 

} 


function newRecordO 

{ 

with (document.<CFOUTPUT>#VARIABLES.formName#</CFOUTPUT>) 

{ 

// Add a new row to the recordset 
Users.addRows(1); 

NewRow = Users.getRowCount0-I; 


Users.setField(NewRow, 
Users.setField(NewRow, 
Users.setField(NewRow, 
Users.setField(NewRow, 
Users.setField(NewRow, 
Users.setField(NewRow, 
Users.setField(NewRow, 
Users.setField(NewRow, 
Users.setField(NewRow, 
Users.setField(NewRow, 
Users.setField(NewRow, 
Users.setField(NewRow, 
Users.setField(NewRow, 
Users.setField(NewRow, 


”user_id”, "new”); 
"fullname", "(New Record)"); 
"Iname", "Last Name"); 
"fname", "First Name"); 
"rank", ""); 

"ssn”, ""); 

"command", "") ; 

"phone", ""); 

"email", "”); 

"dateexpire", "”) ; 
"user_loginid", "") ; 
"user_password", "") ; 
"force_password", "") ; 
"locked", "") ; 


// Re-initialize the SELECT list 
initControls(); 
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// Re-select the book that was selected before 
UserList.selectedIndex = NewRow; 
fillControls(); 

} 

} 

function savetoServer() 

{ 

with (document.<CFOUTPUT>#VARIABLES.formName#</CFOUTPUT>) 

{ 

mySerializer = new WddxSerializer(); 
usersAsWDDX = mySerializer.serialize( Users ); 
WDDXContent.value = usersAsWDDX; 
submit 0; 

} 

} 

function saveChanges{) 

{ 

with (doc^ment.<CFOUTPUT>#VARIABLES.formName#</CFOUTPUT>) 

{ 

var selectedUser = UserList.selectedIndex; 
var RowNum = selectedUser; 

// Populate textboxes with data in that row 
Users.Iname[RowNum] = Iname.value; 

Users.fname[RowNum] = fname.value; 

Users.rank[RowNum] = rank.value; 

Users.ssn[RowNum] = ssn.value; 

Users.command[RowNum] = command.value; 

Users.phone[RowNum] = phone.value; 

Users.email[RowNum] = email.value; 

Users.dateexpire[RowNum] = expire.value; 
Users.user_loginid[RowNum] = user_loginid.value; 

Users.user_password[RowNum] = user_password.value; 
if ( force_password[0].checked ) 

Users.force_password[RowNum] = force_password[0].value; 
else 

Users.force_password[RowNum] = force_password[1].value; 
if ( locked[0].checked ) 

Users.locked[RowNum] = locked[0].value; 
else 

Users.locked[RowNum] = locked[1].value; 

Users.wasedited[RowNum] = 'Yes'; 

initControls (); 

UserList.selectedIndex = -1; 

UserList.selectedIndex = selectedUser; 

} 

} 

function deleteRecord() 

{ 

with (dociament.<CFOUTPUT>#VARIABLES.formName#</CFOUTPUT>) 

{ 


138 



var selectedUser = UserList.selectedindex; 
var RowNum = selectedUser; 

// Populate textboxes with data in that row 

Users.fullname[RowNum] = "(D)" + Users.Iname[RowNum] + ", " + 

Users.fname[RowNum]; 

Users.Iname[RowNum] = "MARKED FOR"; 

Users.fname[RowNum] = "DELETION"; 

Iname.value = Users.Iname[RowNum]; 
fname.value = Users.fname[RowNum]; 

Users.wasedited[RowNum] = 'Delete'; 

initControls(); 

UserList.selectedindex = -1; 

UserList.selectedindex = selectedUser; 

} 

} 

window.onload=initControls; 

</SCRIPT> 

<!- display appropriate header -> 

<CF_srWinTab 

TABS="#VARIABLES.title#" 

SYSTEM_TOOLBAR="New,Save,Save to Server,Delete,Undo" 

SYSTEM_TOOLBARLINKS="javascript:newRecord(),javascript:saveChanges(), ja 
vascript:savetoServer(),javascript rdeleteRecord(),javascript: fillContro 
IsO" 

> 

<TABLE BORDER=0 WIDTH=100%> 

<CFQUERY NAME="GetCommands" 

DATASOURCE="#VARIABLES.gvDATASOURCE_CONFIG#"> 

SELECT * 

FROM tblCommands 

ORDER BY cmd_description 

</CFQUERY> 

<CFFORM ACTION="#VARIABLES.formAction#" NAME="#VARIABLES.formName#"> 
<INPUT TYPE="hidden" NAME="WDDXContent" VALUE=""> 

<TR> 

<TD> 

<SPAN CLASS="winTab"> 

<CF_srHELPSUMMARY shortName="adminUsers"> 

</SPAN> 

<P> 

<TABLE BORDER=0 WIDTH=100%> 

<TR> 

<TD CLASS="winTabLabel" ALIGN="center" WIDTH=40%>&nbsp;USERS</TD> 

<TD CLASS="winTabLabel" ALIGN="center">&nbsp;PROPERTIES</TD> 

</TR> 

<TR> 


139 



<TD CLASS="winTabField" WIDTH=40% ALIGN="center" VALIGN="top"> 
<SELECT NAME="UserList" SIZE="10" onCHANGE="fillControls()"> 
<OPTI0N>==========(loading...)========== 

</SELECT> 

</TD> 

<TD CLASS="winTabField" VALIGN="top"> 

<TABLE BORDER=0 WIDTH=100%> 

<TR> 

<TD CLASS="winTabField" C0LSPAN=2><B>DEM0GRAPHICS</B></TD> 
</TR> 

<TR> 

<TD CLASS="winTabField">Name:</TD> 

<TD CLASS="winTabField"> 

<INPUT CIiASS="stdTextBox" NAME="lnaine" TYPE="text" SIZE="20" 
MaXLENGTH="30"> 

&nbsp; 

<INPUT CLASS="stdTextBox" NAME="fname" TYPE="text" SIZE="15" 
MSXLENGTH="30"> 

</TD> 

</TR> 

<TR> 

<TD CLASS="winTabField">Rank:</TD> 

<TD CLASS="winTabField"> 

<INPUT CLASS="stdTextBox" NAME="rank" TYPE="text" SIZE="20" 
MAXLENGTH="10"> 

</TD> 

</TR> 

<TR> 

<TD CLASS="winTabField">SSN (last 4):</TD> 

<TD CLASS="winTabField"> 

<INPUT CLASS="stdTextBox" NAME="ssn" TYPE="text" SIZE="5" 
MAXLENGTH="4"> 

</TD> 

</TR> 

<TR> 

<TD CLASS="winTabField">Organization:</TD> 

<TD CLASS="winTabField”> 

<INPUT CLASS="stdTextBox" NAME="command" TYPE="text" SIZE="30" 
MAXLENGTH="3 0"> Snbsp;<A HREF="">List</A> 

</TD> 

</TR> 

<TR> 

<TD CLASS="winTabFieId">Phone:</TD> 

<TD CLASS="winTabField"> 

<INPUT CLASS="stdTextBox" NAME="phone" TYPE="text" SIZE="20" 
MAXLENGTH="15"> 

</TD> 

</TR> 

<TR> 

<TD CLASS="winTabField">Email:</TD> 

<TD CLASS="winTabField"> 

<INPUT CLASS="stdTextBox" NAME="email" TYPE="text" SIZE="40" 
MaXLENGTH="75"> 

</TD> 

</TR> 

<TR> 
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<TD CLASS="winTabField" C0LSPAN=2><B>SECURITY</B></TD> 

</TR> 

<TR> 

<TD CLASS="winTabField">Account expires:</TD> 

<TD CLASS="winTabField"> 

<INPUT CLASS="stdTextBox" NAME="expire" TYPE="text" SIZE="10" 
MAXLENGTH="10"> 

</TD> 

</TR> 

<TR> 

<TD CLASS="winTabField">Login ID:</TD> 

<TD CLASS="winTabField"> 

<INPUT CLASS="stdTextBox" NAME=''user_loginid" TYPE="text" SIZE="20" 
MAXLENGTH="15"> 

</TD> 

</TR> 

<TR> 

<TD CLASS="winTabField">Password:</TD> 

<TD CLASS="winTabField"> 

<INPUT CLASS="stdTextBox" NAME="user_password" TYPE="password" 
SIZE=”20" MAXLENGTH="10"> 

</TD> 

</TR> 

<TR> 

<TD CLASS="winTabField">Force Password?</TD> 

<TD CLASS="winTabField"> 

<INPUT NAME="force_password" TYPE="radio” VALUE="l”>Yes 
<INPUT NAME="force_password" TYPE="radio" VALUE="0">No 
</TD> 

</TR> 

<TR> 

<TD CLASS="winTabField">Lock Account?</TD> 

<TD CLASS="winTabField"> 

<INPUT NAME="locked" TYPE="radio" VALUE="l">Yes 
<INPUT NAME="locked" TYPE="radio" VALUE="0">No 
</TD> 

</TR> 

</TABLE> 

</TD> 

</TR> 

</TABLE> 

</TD> 

</TR> 

</CFFORM> 

</TABLE> 

</CF_srWinTab> 

</CFIF> 


ADMINSECRUITYCONFIGURATION.CFM 


<CFSET mainFile = 

"main.cfm?a=adiiiinistration&body=adminSecurityConfiguration.cfm"> 
<CFPARAM NAME="URL.action" DEFAULT="view"> 
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<CFIF #URL.action# IS "save"> 


<CFSET gvDEFAULTPSWDEXP = "#FORM.DEFAULTPSWDEXP#"> 

<CFSET gvMIN_PSWD_SIZE = "#FORM.MIN_PSWD_SIZE#"> 

<CFSET gvPSWD_REUSE = "#FORM.PSWD_REUSE#”> 

<CFSET gvPSWD_FORGET = "#FORM.PSWD_FORGET#"> 

<CFSET gvPSWD_FORGET_CHG = "#FORM.PSWD_FORGET_CHG#”> 

<CFSET gvPSWD_REMEMBER = "#FORM.PSWD_REMEMBER#"> 

<CFSET gvPSWD_LOCKIFFAIL = "#FORM.PSWD_LOCKIFFAIL#”> 

<CFSET gvPSWD_SENDEMAIL = "#FORM.PSWD_SENDEMAIL#"> 

<CFSET gvPSWD_ISCASE = "#FORM.PSWD_ISCASE#"> 

<CFSET gvPSWD_INCLNUM = "#FORM.PSWD_INCLNUM#”> 

<CFSET gvTIMEOUT_MINS = ”#FORM.TIMEOUT_MINS#"> 

<CFSET gvLOGON_ATTEMPTS = "#FORM.LOGON_ATTEMPTS#"> 

<CFSET gvSECURITYEMAIL = ”#FORM.SECURITYEMAIL#’'> 

<CFSET gvIP_BLOCKING = "#FORM.IP_BLOCKING#"> 

<CFSET gvDOMAIN_BLOCKING = "#FORM.DOMAIN_BLOCKING#"> 

<CFSET gvDOMAIN_BLOCKINGLIST = "#FORM.DOMAIN_BLOCKINGLIST#"> 

<CFSET gvDOW_BLOCKING = "#FORM.DOW_BLOCKING#"> 

<CFSET gvDOW_DAYSTOBLOCK= "#FOBM.DOW_DAYSTOBLOCK#"> 

<CFSET gvTIME_BLOCKING = "#FORM.TIME_BLOCKING#"> 

<CFSET gvTIME_FROMBLOCK = "#FORM.TIME_FROMBLOCK#"> 

<CFSET gvTIME_TOBLOCK = "#FORM.TIME_TOBLOCK#"> 

<CFSET gvMSG_FAILEDLOGON = "#FORM.MSG_FAILEDLOGON#"> 

<CFSET gvMSG_USEREXPIRE = "#FORM.MSG_USEREXPIRE#"> 

<CFSET gvMSG_RECORDLOCKED = "#FORM.MSG_RECORDLOCKED#"> 

<CFSET gvMSG_IPBLOCKING = "#FORM.MSG_IPBLOCKING#"> 

<CFSET gvMSG_DOMAINBLOCKING = "#FORM.MSG_DOMAINBLOCKING#"> 

<CFSET gvMSG_DOWBLOCKING = "#FORM.MSG_DOWBLOCKING#”> 

<CFSET gvMSG_TIMEBLOCKING = "#FORM.MSG_TIMEBLOCKING#"> 

<CFINCLUDE TEMPLATE="adininWriteConfig.cfiti”> 

<CFINCLUDE TEMPIiATE="a(lminWriteLogon.cfia"> 

<CFLOCATION URL="#VARIABLES.mainFile#"> 

<CFELSEIF URL.action EQ "view"> 

<CFSET title = "SECURITY POLICY"> 

<CFSET formAction = "iVARIABLES.mainFile#&action=save"> 

<CFSET fonnNam.e="formPolicy"> 

<!- display appropriate header -> 

<CF_srWinTab 

TABS="Security Policy,Program Configuration" 

TABSELECTED="1" 

TABURL="main.cfm?a=administration&body=adminSecurityConfiguration.cfm,m 
ain.cfm?a=administration&body=adminConfiguration.cfm" 
SYSTEM_TOOLBAR="Save As.Save,Policies,View IPs,Add New IP" 

SYSTEM_TOOLBARLINKS="#VARIABLES.mainFile#&action=saveas,javascript.-docu 
ment.#VARIABLES.formName#.submit{),#VARIABLES.mainFile#&action=policies 
,listIPBlock.cfm,listIPBlock.cfm?action=add" 

BASEURL="#VARIABLES.mainFile#" 

> 

<TABLE BORDER=0 WIDTH=100%> 


142 



<CFFORM ACTION="#VARIABLES.fonnAction#" NAME="#VARIABLES.fonnName#"> 
<TR> 

<TD> 

<SPAN CLASS="winTab"> 

<CF_srHELPSlIMMARY shortName="adirLinSecurity"> 

</SPAN> 

<P> 

<TABLE BORDER=0 WIDTH=100%> 

<TR> 

<TD CIiASS="winTabLabel">&nbsp;BLOCKING OPTIONS</TD> 

<TD CLASS="winTabField">&nbsp;</TD> 

</TR> 

<TR> 

<TD CIiASS="winTabLabel">&nbsp;Allow certain IPs or Groups?</TD> 

<TD CLASS="winTabField"> 

<CFINPUT TYPE="Radio" NAME="IP_BLOCKING" VALUE="No" CHECKED="#{ NOT 
VARIABLES.gviP_BLOCKING )#">No 

<CFINPUT TYPE="Radio"- NAME="IP_BLOCKING" VALUE="Yes’' 

CHECKED="#VARIABLES.gvIP_BLOCKING#">Yes 

</TD> 

</TR> 

<TR> 

<TD CLASS="winTabLabel">&nbsp;&nbsp;Blocked IP message:</TD> 

<TD CLASS="winTabField"> 

<CFINPUT 

TYPE="TEXT" 

NAME="MSG_IPBLOCKING" 

SIZE="30" 

MAXLENGTH="75" 

REQUIRED="no" 

VALUE="#VARIABLES.gvMSG_IPBLOCKING#" 

> 

</TD> 

</TR> 

<TR> 

<TD CLASS="winTabLabel">&nbsp;Allow only certain domains?</TD> 

<TD CLASS="winTabField"> 

<CFINPUT TYPE="Radio" NAME="DOMAIN_BLOCKING" VALUE="No" CHECKED="#( NOT 
VARIABLES.gvDOMAIN_BLOCKING )#">No 

<CFINPUT TYPE="Radio" NAME="DOMAIN_BLOCKING" VALUE="Yes" 

CHECKED="#VARIABLES.gvDOMAIN_BLOCKING#">Yes 
</TD> 

</TR> 

<TR> 

<TD CLASS="winTabLabel">&nbsp;&nbsp;List domains separated by 
commas:</TD> 

<TD CLASS="winTabField"> 

<CFINPUT 

TYPE="TEXT" 

NAME= " DOMAIN_BLOCKINGLI S T " 

SIZE="30" 

MAXLENGTH="30" 

REQUIRED="NO" 

VALUE="#VARIABLES.gvDOMAIN_BLOCKINGLIST#" 

> 

</TD> 

</TR> 
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<TR> 

<TD CLASS="winTabLabel”>&nbsp/&nbsp;Blocked domain message:</TD> 

<TD CLASS="winTabField"> 

<CFINPUT 

TYPE="TEXT" 

NAME= "MSG_DOMA.INBLOCKING " 

SIZE="30" 

MAXLENGTH="75" 

REQUIRED="no” 

VALUE="#VARIABLES. gvMSG_DOMAINBLOCKING#'’ 

> 

</TD> 

</TR> 

<TR> 

<TD CLASS="winTabLabel">&nbsp;Allow only certain days?</TD> 

<TD CLASS="winTabField”> 

<CFINPUT TYPE="Radio" NAME="DOW_BLOCKING" VALUE="No" CHECKED="#( NOT 
VARIABLES.gvDOW_BLOCKING )#">No 

<CFINPUT TYPE=’'Radio" NAME="DOW_BLOCKING” VALUE=”Yes” 

CHECKED="#VARIABLES.gvDOW_BLOCKING#">Yes 

</TD> 

</TR> 

<TR> 

<TD CLASS="winTabLabel">&nbsp;&nbsp;Choose days to block:</TD> 

<TD CLASS="winTabField"> 

<INPUT TYPE="hidden" NAME="DOW_DAYSTOBLOCK" VALUE=""> 

<CFINPUT TYPE="checkbox" NAME="DOW_DAYSTOBLOCK" VALUE="Mon" 
CHECPCED="#Iif( VARIABLES.gvDOW_DAYSTOBLOCK CONTAINS 'Mon’,De( 'yes' 
),De( 'no' ) )#">M 

<CFINPUT TYPE="checkbox" NAME=''DOW_DAYSTOBLOCK" VALUE="Tue" 
CHECKED="#Iif( VARIABLES.gvDOW_DAYSTOBLOCK CONTAINS 'Tue',De( 'yes' 
),De( 'no' ) )#">T 

<CFINPUT TYPE="checkbox" NAME="DOW_DAYSTOBLOCK" VALUE="Wed" 
CHECKED="#Iif( VARIABLES.gvDOW_DAYSTOBLOCK CONTAINS 'Wed',De( 'yes' 
),De( 'no' ) )#">W 

<CFINPUT TYPE="checkbox" NAME="DOW_DAYSTOBLOCK” VALUE="Thur" 
CHECKED="#Iif( VARIABLES.gvDOW_DAYSTOBLOCK CONTAINS 'Thur',De( 'yes' 
),De( 'no' ) )#">T 

<CFINPUT TYPE="checkbox" NAME="DOW_DAYSTOBLOCK" VALUE="Fri" 

CHECKED="#Iif( VARIABLES.gvDOW_DAYSTOBLOCK CONTAINS 'Fri',De( 'yes' 
),De( 'no' ) )#">F 

<CFINPUT TYPE=”checkbox" NAME="DOW_DAYSTOBLOCK" VALUE="Sat" 
CHECKED="#Iif( VARIABLES.gvDOW_DAYSTOBLOCK CONTAINS 'Sat',De( 'yes' 
),De( 'no' ) )#">S 

<CFINPUT TYPE="checkbox" NAME="DOW_DAYSTOBLOCK" VALUE="Sun" 
CHECKED="#Iif( VARIABLES.gvDOW_DAYSTOBLOCK CONTAINS 'Sun',De( 'yes' 
),De( 'no' ) )#">S 
</TD> 

</TR> 

<TR> 

<TD CLASS="winTabLabel">&nbsp;&nbsp;Blocked by day message:</TD> 

<TD CLASS=''winTabField"> 

<CFINPUT 

TYPE="TEXT" 

NAME="MSG_DOWBLOCKING" 

SIZE=”30" 

MAXLENGTH="75" 
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REQUIRED="no" 

VALUE="#VARIABLES.gvMSG_DOWBLOCKING#" 

> 

</TD> 

</TR> 

<TR> 

<TD CLASS="winTabLabel">&nbsp;Allow only certain times?</TD> 

<TD CLASS="winTabField”> 

<CFINPUT TYPE="Radio" NAME="TIME_BLOCKING" VALUE="No" CHECKED=”#{ NOT 
VARIABLES.gvTIME_BLOCKING )#">No 

<CFINPUT TYPE="Radio" NAME="TIME_BLOCKING" VALUE="Yes" 

CHECKED="#VARIABIiES. gvTIME_BLOCKING#">Yes 

</TD> 

</TR> 

<TR> 

<TD CLASS="winTabLabel">&nbsp;&nbsp;Enter the times to block:</TD> 

<TD CLASS="winTabField"> 

From: 

<CFINPUT 

TYPE="TEXT" 

NAME="TIME_FROMBLOCK” 

SIZE="6" 

MAXLENGTH="5" 

REQUIRED="NO" 

VALIDATE="time" 

VALUE="# VARIABLE S.gvTIME_FROMBLOCK#" 

> 

&nbsp;To: 

<CFINPUT 

TYPE="TEXT" 

NAME="TIME_T0BL0CK" 

SIZE="6" 

MAXLENGTH="5" 

REQUIRED="NO" 

VALIDATE="time" 

VALUE="# VARIABLES.gvTIME_TOBLOCK#" 

> 

</TD> 

</TR> 

<TR> 

<TD CLASS="winTabLabel">&nbsp;&nbsp;Blocked by time message:</TD> 

<TD CLASS="winTabField"> 

<CFINPUT 

TYPE="TEXT" 

NAME="MS G_TIMEBLOCKING" 

SIZE=”30'' 

MAXLENGTH="75" 

REQUIRED="no" 

VALUE="#VARIABLES.gvMSG_TIMEBLOCKING#" 

> 

</TD> 

</TR> 

<TR> 

<TD>&nbsp;</TD> 

<TD>&nbsp;</TD> 

</TR> 

<TR> 


145 




<TD CLASS="winTabLabel">&ribsp;PASSWORD REQUIREMENTS</TD> 

<TD CLASS="winTabField">&nbsp/</TD> 

</TR> 

<TR> 

<TD CLASS="winTabLabel">&nbsp;Passwords expire in:</TD> 

<TD CLASS=”winTabField"> 

<CFINPUT 

NA]yiE= "DE FAULTPSWDEXP " 

TYPE="text" 

VALUE="#VARIABLES.gvDEFAULTPSWDEXP#" 

SI2E="5'' 

MAXLENGTH="4" 

> 

&nbsp;Days 

</TD> 

</TR> 

<TR> 

<TD CIiASS=”winTabLabel”>&nbsp;Minimmn password length;</TD> 

<TD CLASS="winTabField"> 

<CFINPUT 

NAME="MIN_PSWD_SIZE" 

TYPE="text” 

VALUE="#VARIABLES.gvMIN_PSWD_SIZE#" 

SIZE="5" 

MaXLENGTH="4" 

> 

&nbsp;Characters 
</TD> 

</TR> 

<TR> 

<TD CLASS="winTabLabel">&nbsp;Can users reuse their old password?</TD> 
<TD CLASS="winTabField'’> 

<CFINPUT TYPE="Radio" NAME="PSWD_REUSE’' VALUE="No" CHECKED="#( NOT 
VARIABLES.gvPSWD_REUSE )#">No 

<CFINPUT TYPE="Radio" NAME="PSWD_REUSE" VALUE="Yes" 

CHECKED="#VARIABLES.gvPSWD_REUSE#">Yes 
</TD> 

</TR> 

<TR> 

<TD CLASS="winTabLabel">&iibsp; Passwords must include ntamber (s) ?</TD> 
<TD CLASS="winTabField"> 

<CFINPUT TYPE="Radio" NAME="PSWD_INCLNUM" VALUE="No" CHECKED="#( NOT 
VARIABLES.gvPSWD_INCLNUM )#">No 

<CFINPUT TYPE="Radio" NAME="PSWD_INCLNUM" VALUE="Yes" 

CHECKED="#VARIABLES.gvPSWD_INCLNUM#">Yes 
</TD> 

</TR> 

<TR> 

<TD>&nbsp;</TD> 

<TD>&nbsp;</TD> 

</TR> 

<TR> 

<TD CLASS="winTabLabel">&nbsp;PROTECTION FEATURES</TD> 

<TD CLASS="winTabField”>&nbsp;</TD> 

</TR> 

<TR> 
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<TD CIiASS="winTabLabel">&nbsp;If users fail to change password, lock 
accounts?</TD> 

<TD CLASS="winTabField"> 

<CFINPUT TYPE="Radio" NAME="PSWD_LOCKIFFAIL" VALUE="No" CHECKED="#{ NOT 
VARIABLES.gvPSWD_LOCKIFFAIL )#">No 

<CFINPUT TYPE="Radio" NAME="PSWD_LOCKIFFAIL" VALUE="Yes’' 

CHECKEr)="#VARIABLES. gvPSWD_LOCKIFFAIL#’'>Yes 

</TD> 

</TR> 

<TR> 

<TD>&nbsp;</TD> 

<TD>&nbsp;</TD> 

</TR> 

<TR> 

<TD CLASS="winTabLabel">&nbsp;LOGON FEATURES</TD> 

<TD CLASS="winTabField">&nbsp;</TD> 

</TR> 

<TR> 

<TD CIiASS="winTabLabel”>&nbsp;Passwords are case-sensative?</TD> 

<TD CLASS="winTabField"> 

<CFINPUT TYPE="Radio" NAME="PSWD_ISCASE” VALUE="No" CHECKED="#( NOT 
VARIABLES.gvPSWD_ISCASE )#">No 

<CFINPUT TYPE="Radio" NAME="PSWD_ISCASE" VALUE="Yes" 

CHECKED="#VARIABLES.gvPSWD_ISCASE#">Yes 
</TD> 

</TR> 

<TR> 

<TD CLASS="winTabLabel">&nbsp;Enable "Forget Password?" on login?</TD> 
<TD CLASS="winTabField"> 

<CFINPUT TYPE="Radio" NAME="PSWD_FORGET" VALUE=”No" CHECPCED="#( NOT 
VARIABLES.gvPSWD_FORGET )#">No 

<CFINPUT TYPE="Radio" NAME=”PSWD_FORGET" VALUE="Yes" 

CHECKED="#VARIABLES.gvPSWD_FORGET#">Yes 
</TD> 

</TR> 

<TR> 

<TD CLASS="winTabLabel">&nbsp;&nbsp;Change password if user 
forgot?</TD> 

<TD CLASS="winTabField"> 

<CFINPUT TYPE="Radio" NAME="PSWD_FORGET_CHG" VALUE="No" CHECKED="#( NOT 
VARIABLES.gvPSWD_FORGET_CHG )#">No 

<CFINPUT TYPE="Radio" NAME="PSWD_FORGET_CHG" VALUE="Yes” 

CHECKED="#VARIABLES.gvPSWD_FORGET_CHG#">Yes 

</TD> 

</TR> 

<TR> 

<TD CLASS="winTabLabel">&nbsp;Enable "Remember Login?" on login?</TD> 
<TD CLASS="winTabField"> 

<CFINPUT TYPE="Radio" NAME="PSWD_REMEMBER" VALUE="No" CHECKED="#( NOT 
VARIABLES.gvPSWD_REMEMBER )#">No 

<CFINPUT TYPE="Radio" NAME="PSWD_REMEMBER" VALUE="Yes" 

CHECKED="#VARIABLES.gvPSWD_REMEMBER#">Yes 

</TD> 

</TR> 

<TR> 

<TD CLASS="winTabLabel">&nbsp;Lock account after how many unsuccessful 
attempts:</TD> 
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<TD CLASS="winTabField"> 

<CFINPUT 

NAME="LOGON_ATTEMPTS" 

TYPE="text" 

VALUE="#VARIABLES.gvLOGON_ATTEMPTS #” 

VALIDATE=’’integer" 

RANGE="0,10" 

SIZE="5" 

MAXLENGTH="4" 

> 

snbsp;Tries 
</TD> 

</TR> 

<TR> 

<TD CLASS="winTabLabel">&nbsp;Failed to logon message:</TD> 
<TD CLASS="winTabField"> 

<CFINPUT 

TYPE="TEXT" 

NAME=”MSG_FAILEDLOGON" 

SIZE="30" 

MflXLENGTH="75" 

REQUIRED="no" 

VALUE="#VARIABLES.gvMSG_FAILEDLOGON#" 

> 

</TD> 

</TR> 

<TR> 

<TD CLASS="winTabLabel”>&nbsp;Expired account message:</TD> 
<TD CLASS="winTabField"> 

<CFINPUT 

TYPE="TEXT" 

NAME="MSG_USEREXPIRE" 

SIZE="30" 

MAXLENGTH="75" 

REQUIRED="no" 

VALUE="#VARIABLES.gvMSG_USEREXPIRE#" 

> 

</TD> 

</TR> 

<TR> 

<TD CLASS="winTabLabel">&nbsp;User record locked message:</TD> 
<TD CLASS=”winTabField"> 

<CFINPUT 

TYPE="TEXT" 

NAiy[E="MSG_RECORDLOCPCED" 

SIZE="30" 

MAXLENGTH="75" 

REQUIRED="no" 

VALUE="#VARIABLES.gvMSG_RECORDLOCKED#" 

> 

</TD> 

</TR> 

<TR> 

<TD> &nbsp;</TD> 

<TD>&nbsp;</TD> 

</TR> 

<TR> 
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<TD CLASS="winTabLabel">&nbsp;AUTO PILOT</TD> 

<TD CLASS="winTabField">&nbsp;</TD> 

</TR> 

<TR> 

<TD CIiASS="winTabLabel">&nbsp;Send email reminders to change 
password?</TD> 

<TD CLASS="winTabField"> 

<CFINPUT TyPE="Radio" NAME=”PSWD_SENDEMAIL" VALUE="No" CHECKED="#( NOT 
VARIABLES.gvPSWD_SENDEMAIL )#">No 

<CFINPUT TYPE="Radio" NAME="PSWD_SENDEMAIL" VALUE="Yes" 

CHECKED="#VARIABLES.gvPSWD_SENDEMAIL#">Yes 

</TD> 

</TR> 

<TR> 

<TD CLASS=''winTabLabel">&nbsp;Email Security Violations to 
Administrator?</TD> 

<TD CLASS="winTabField"> 

<CFINPUT TYPE="Radio" NAME="SecurityEmail" VALUE="No" CHECKED="#Iif( 
NOT VARIABLES.gvSECURITYEMAIL,De( 'true' ),De( 'false' ) )#">No 
<CFINPUT TYPE="Radio" NAME=''SecurityEmail'’ VALUE=”Yes" CHECKED='’#Iif ( 
VARIABLES.gvSECURITYEMAIL,De( 'true' ),De( 'false' ) )#">Yes 
</TD> 

</TR> 

<TR> 

<TD CLASS=”winTabLabel”>&nbsp;Automatically log off user after:</TD> 
<TD CLASS="winTabField"> 

<CFINPUT 

NAME="TIMEOUT_MINS" 

TYPE="text" 

VALIDATE="integer" 

VALUE="#VARIABLES.gvTIMEOUT_MINS#" 

SIZE="5” 

MAXLENGTH="4" 

> 

&nbsp/Minutes 
</TD> 

</TR> 

</TABLE> 

</TD> 

</TR> 

</CFFORM> 

</TABLE> 

</CF_srWinTab> 

</CFIF> 


ADMINCONnGURATION.CFM 


<CFSET mainFile = 

"main.cfm?a=administration&body=adminConfiguration.cfm"> 
<CFPARAM NAME="URL.action" DEFAULT="view"> 

<CFIF #URL.action# IS "save"> 


<CFSET gvAdminEmail 


" # FORM. ADMINEMAIL# " > 
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<CFSET gvAdminName = 

<CFSET gvAdminPhone = 
<CFSET gvAdminEmail_Sec = 
<CFSET gvAdminName_Sec = 
<CFSET gvAdminPhone_Sec = 
<CFSET gvAPP_HOME 
<CFSET gvAPP_COMMAND 
<CFSET gvHOME_PAGE 
<CFSET gvSMTP_SERVER 
<CFSET gvFromEmail 


" # FORM. ADMINNAME # " > 

"#FORM. ADMINPHONE#"> 

" #FORM. ADMINEMAIL_SEC#" > 

" #FORM. ADMINNAME_SEC# " > 

"#FORM.ADMINPHONE_SEC#"> 

= "#FORM.APP_HOME#"> 

= "#FORM.APP_COMMAND#"> 

= "#FORM.HOME_PAGE#"> 
= "# FORM.SMTP_SERVER#"> 

= "#FORM.FROMEMAIL#"> 


<CFINCLUDE TEMPLATE=’'adminWriteConfig.cfm"> 
<CFLOCATION URL="#VARIABLES.mainFile#"> 


<CFELSEIF URL.action EQ "view"> 


<CFSET title = "PROGRAM CONFIGURATION"> 

<CFSET formAction = "#VARIABLES.mainFile#&action=save"> 

<CFSET formName="foriaProgConfig"> 

<!- display appropriate header -> 

<CF_srWinTab 

TABS="Security Policy,Program Configuration" 

TABSELECTED="2" 

TABURL="main.cfm?a=administration&body=adminSecurityConfiguration.cfm,m 
ain.cfm? a=administration&body=adminConfiguration.cfm" 

SYS TEM_TOOLBAR="Save" 

SYSTEM_TOOLBARLINKS="j avascript:document.#VARIABLES.formName#.submit()" 
BASEURL="#VARIABLES.mainFile#" 


<TABLE BORDER=0 WIDTH=100%> 

<CFFORM ACTION="#VARIABLES.formAction#" NAME="#VARIABLES.formName#”> 
<TR> 

<TD> 

<SPAN CLASS="winTab"> 

<CF_srHELPSUMMARY shortName="adminConfig"> 

</SPAN> 

<P> 

<TABLE BORDER=0 WIDTH=100%> 

<TR> 

<TD CLASS=”winTabLabel">&nbsp;ORGANIZATION INFORMATION</TD> 

<TD CLASS="winTabField">&nbsp;</TD> 

</TR> 

<TR> 

<TD CLASS="winTabLabel">&nbsp;Organization:</TD> 

<TD CLASS="winTabField"> 

<CFINPUT 

TYPE="TEXT" 

NAME="APP_COMMflND" 

SIZE="30" 

MAXLENGTH="60" 

REQUIRED="YES" 

VALUE="#VARI ABLES.gvAPP_COMMAND#" 

MESSAGE="An Organization Name is required." 

> 
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</TD> 

</TR> 

<TR> 

<TD CLASS="winTabLabel">&nbsp;Hoinepage Address:</TD> 

<TD CLASS=''winTabField"> 

<CFINPUT 

TyPE=”TEXT" 

NAME="HOME_PAGE" 

SIZE="30" 

MAXLENGTH="75'' 

REQUIRED="no" 

VALUE="#VARIABLE S.gvHOME_PAGE #" 

> 

</TD> 

</TR> 

<TR> 

<TD CLASS="winTabLabel">&nbsp;Readiness Explorer Address:</TD> 
<TD CLASS="winTabField"> 

<CFINPUT 

TYPE="TEXT" 

NAME= "APP_H0ME" 

SIZE="30" 

MAXLENGTH="75" 

REQUIRED="YES" 

VALUE="#VARIABLES.gvAPP_HOME#" 

MESSAGE="A Program Web Address is required." 

> 

</TD> 

</TR> 

<TR> 

<TD CLASS="winTabLabel">&nbsp;SMTP Mail Server (IP Address):</TD> 
<TD CLASS="winTabField"> 

<CFINPOT 

TYPE="TEXT" 

NAME="SMTP_SERVER" 

SIZE="30" 

MAXLENGTH="40" 

REQUIRED="YES" 

VALUE="#VARIABLES.gvSMTP_SERVER#" 

MESSAGE="A SMTP Mail Server is required." 

> 

</TD> 

</TR> 

<TR> 

<TD CIjASS="winTabLabel">&nbsp;Offical Email Address:</TD> 

<TD CLASS="winTabField"> 

<CFINPUT 

TYPE="TEXT" 

NAME="FROMEMAIL" 

SIZE="30" 

MAXLENGTH="75'’ 

REQUIRED="YES" 

VALUE="#VARIABLES.gvFROMEMAIL#" 

MESSAGE="An Offical Email Address is required." 

> 

</TD> 

</TR> 
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<TR> 

<TD>&nbsp;</TD> 

<TD>&nbsp;</TD> 

</TR> 

<TR> 

<TD CLASS="winTabLabel">&nbsp;PRIMARY ADMINISTRATOR</TD> 

<TD CIiASS="winTabField">&nbsp;</TD> 

</TR> 

<TR> 

<TD CIjASS="winTabLabel">&nbsp;Name:</TD> 

<TD CLASS=''winTabField"> 

<CFINPUT 

TYPE="TEXT” 

NAME="ADMINNAME" 

SIZE="30" 

MAXLENGTH="30" 

REQUIRED="YES" 

VALUE="#VARIABLES -gvADMINNAME#" 

MESSAGE="A Primary Administrator NAME is required." 

> 

</TD> 

</TR> 

<TR> 

<TD CLASS="winTabLabel">&nbsp;Phone:</TD> 

<TD CLASS="winTabField"> 

<CFINPUT 

TYPE="TEXT" 

NAME="ADMINPHONE" 

SIZE="30" 

MAXLENGTH="20" 

REQUIRED="NO" 

VALUE="#VARIABLES.gvADMINPHONE#" 

> 

</TD> 

</TR> 

<TR> 

<TD CLASS="winTabLabel">&nbsp;Email:</TD> 

<TD CLASS="winTabField"> 

<CFINPUT 

TYPE="TEXT" 

NAME="ADMINEMAIL" 

SIZE="30" 

MAXLENGTH="60" 

REQUIRED="YES" 

VALUE="#VARIABLES.gvADMINEMAIL#" 

MESSAGE="A Primary Administrator EMAIL ADDRESS is required." 
> 

</TD> 

</TR> 

<TR> 

<TD>&nbsp;</TD> 

<TD>&nbsp;</TD> 

</TR> 

<TR> 

<TD CLASS=”winTabLabel">&nbsp;SECONDARY ADMINISTRATOR</TD> 
<TD CLASS="winTabField">&nbsp;</TD> 

</TR> 
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<TR> 

<TD CLASS="winTabLabel”>&nbsp;Name:</TD> 
<TD CLASS="winTabField"> 

<CFINPUT 

TYPE=”TEXT” 

NAME="ADMINNAME_SEC" 

SIZE="30" 

MAXLENGTH="30" 

REQUIRED="NO" 

VALUE=”#VARIABLES.gvADMINNAME_SEC#" 

> 

</TD> 

</TR> 

<TR> 

<TD CIiASS="winTabLabel">&nbsp;Phone:</TD> 
<TD CLASS=”winTabField"> 

<CFINPUT 

TYPE="TEXT" 

NAME="ADMINPHONE_SEC" 

SIZE="30" 

MAXLENGTH="20" 

REQUIRED="NO" 

VALUE="#VARIABLES.gvADMINPHONE_SEC#" 

> 

</TD> 

</TR> 

<TR> 

<TD CLASS="winTabLabel">&nbsp,• Email:</TD> 
<TD CLASS="winTabField"> 

<CFINPUT 

TYPE="TEXT" 

NAME= "ADMINEMA.IL_SEC " 

SIZE="30" 

MAXLENGTH="60" 

REQUIRED="NO" 

VM.UE="#VARIABLES.gvADMINEMAIL_SEC#" 

> 

</TD> 

</TR> 

</TABLE> 

</TD> 

</TR> 

</CFFORM> 

</TABLE> 

</CF_srWinTab> 

</CFIF> 


ADMJNWRITELOGON.CFM 


<CFSET filetowrite = #GetDirectoryFromPath( GetTemplatePath() )# & 
#VARIABLES.gvHOMEPAGE NAME#> 


IT 


<CFSET Beginning = 
<HTML> 

<HEAD> 
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<TITLE>Welcome to Readiness Explorer</TITLE> 
<STYLE TYPE='text/css'> 

Z**-****-*******************************^**^*^ 

LOG-IN PROPERTIES 

***************************************j^***^ 

TD.Login 

{ 

font: 12px tahoma, verdana, arial; 
color: black; 
font-weight: bold; 

} 

TD.LoginFooter 

{ 

font: 12px tahoma,verdana,arial; 
color: black; 

} 

A. Login:link 

{ 

color: black; 

text-decoration: none; 

font: lOpt Tahoma, Verdana, Arial; 

font-weight: bold; 

} 

A.Login:active 

{ 

color: black; 

text-decoration: none; 

font: lOpt Tahoma, Verdana, Arial; 

font-weight: bold; 

} 

A. Login:visited 

{ 

color: black; 

text-decoration: none; 

font: lOpt Tahoma, Verdana, Arial; 

font-weight: bold; 

} 

A. Login:hover 

{ 

color: blue; 

text-decoration: underline; 
font: lOpt Tahoma, Verdana, Arial; 
font-weight: bold; 

} 

SPAN.Login 

{ 

color: black; 

text-decoration: none; 

font: lOpt Tahoma, Verdana, Arial; 

font-weight: bold; 

} 

/**********************************^***j^^^^^ 

END LOG-IN PROPERTIES 

**************************************^**^^^ 
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</STYLE> 

”> 

<CFIF #VARIABLES. gvPSWD_REMEMBER#> 

<CFSET rememberPswd - ” 

<SCRIPT LANGUAGE= * JavaScript’ SRC=’cookies.j s’></SCRIPT> 

<SCRIPT LANGUAGE^’javascript’> 
function initO 
{ 

var xL = readCookie(’cookieLogin'); 
var xP = readCookie(*cookiePassword’); 
var xR = readCookie('cookieRemember’); 
if ( xL != null ) 

document.logonform.xLogInID.value = xL; 
if( xP != null ) 

document.logonform.xPassword.value = xP; 
if( xR != null ) 

document.logonform.xRememberLogin.checked = xR; 

document•logonform.xLogInID,focus(); 

} 

</SCRIPT> 

”> 

<CFELSE> 

<CFSET rememberPswd = ” 

<SCRIPT LANGUAGE=’javascript’> 
function init() 

{ 

document.logonform.xLogInID.focus(); 

} 

</SCRIPT> 

”> 

</CFIF> 

<CFSET Middle = " 

</HEAD> 

<BODY onLOAD=’init()’> 

<BR> 

<BR> 

<BR> 

<BR> 

<FORM ACT ION=’main, cfm* METHOD-POST NAME-’ logonf orm’> 

<CENTER> 

<TABLE BORDER-0 CELLPADDING-0 CELLSPACING-0> 

<TR> 

<TD ALIGN-’left’> 

<TABLE BORDER-0 CELLSPACING-0 CELLPADDING-0 BORDERCOLOR-’##A8B0D8’> 
<TR BGCOLOR-’##A8B0D8 * > 
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<TD ALIGN=’left' WIDTH='23 ’ XIMG 

SRC='#VARIABLES.gvIMAGE_DIRECTORY#top left corner.gif' WIDTH=' 23 ' 
HEIGHT='23' BORDER='0'></TD> ~ 

<TD ALIGN='left' CLASS='Login'>WELECOME TO READINESS EXPLORER</TD> 
<TD ALIGN='right' WIDTH='23 ' XIMG 

SRC='#VARIABLES.gvIMAGE_DIRECTORY#top_right corner.gif WIDTH='23' 
HEIGHT='23' BORDER=' 0' X/TD> 

</TR> 

</TABLE> 

</TD> 

</TR> 

<TR> 

<TD ALIGN='left'> 

<TABLE BORDER='l' CELLSPACING='0' CELLPADDING='0' 

BORDERCOLOR='##A8B0D8'> 

<TR> 

<TD> 

<TABLE BORDER='0' WIDTH='100%'> 

<TR> 

<TD VALIGN='middle' ALIGN='left'> 

<IMG SRC=’#VARIABLES.gvIMAGE_DIRECTORY#reLogo_Small.jpg' BORDER =0 
ALT='Readiness Explorer'> 

</TD> 

<TD VALIGN='top' ALIGN='left'> 

<TABLE BORDER=0 WIDTH=100%> 

<TR> 

<TD CLASS='Login'>Login ID:</TDXTDxINPUT type='password' 
name='xLogInID' size='20' value=''X/TD> 

</TR> 

<TR> 

<TD CLASS='Login'>Password:</TDXTDXINPUT type='password' 
name='xPassword' si2e='20' value=''x/TD> 

</TR> 

<TR> 

<Tn>&nbsp;</TD> 

<TD ALIGN='center'> 

<TABLE BORDER='0'> 

<TR> 

<TD NOWRAP ALIGN='center' VALIGN='middle'XA CLASS='Login' 

HREF='javascript:document.logonform.siibmitO '>Log In</AX/TD> 

</TR> 

"> 

<CFIF #VARIABLES.gvPSWD_REMEMBER#> 

<CFSET rememberPswd_Block = " 

<TR> 

<TD NOWRAP ALIGN='center' VALIGN='middle'XINPUT TYPE='checkbox' 
VALUE='yes' NAME='xRememberLogin'XSPAN CLASS='Login'>Remember 
Login</DIVX/TD> 

</TR> 

"> 

<CFELSE> 

<CFSET rememberPswd_Block = ""> 

</CFIF> 
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<CFIF #VARIABLES.gvPSWD_FORGET#> 

<CFSET forgetPswd_Block = " 

<TR> 

<TD NOWRAP ALIGN='center' VALIGN=’middle'><A CLASS='Login' 

HREF='javascript:dociiment.logonform.submit()'>Forgot Password?</A></TD> 
</TR> 

"> 

<CFELSE> 

<CFSET forgetPswd_Block = ""> 

</CFIF> 

<CFSET Ending = " 

</TABLE> 

</TD> 

</TR> 

</TABLE> 

</TD> 

</TR> 

</TABLE> 

</TD> 

</TR> 

</TABLE> 

</TD> 

</TR> 

<TR> 

<TD ALIGN='center' CLASS='LoginFooter'> 

<BR> 

You have entered a Department of Defense (DoD) web site<BR> 
maintained by #VARIABLES.gvAPP_COMMAND#. This site is monitored and 
records all activity. 

</TD> 

</TR> 

</TABLE> 

</CENTER> 

</FORM> 

</BODY> 

</HTML> 

"> 

<CFLOCK TIMEOUT="60"> 

<CFFILE 

ACTION=''WRITE" 

FILE="#filetowrite#" 

OUTPU'T="#VARIABLES.beginning# #YARIABLES.rememberPswd# 

#VARIABLES .Middle# #VARIABLES. remenjberPswd_Block# 

#VARIABLES.forgetPswd_Block# #VARIABLES.Ending#" 


</CFLOCK> 

4. PANEL COMPONENT FILES 
COMPSENDINSTANTEMAIL.CFM 


157 



<CFIF IsDefined( "FORM.msgSubject" )> 

<CFQUERY NAME="getUserEmail" 

DATASOURCE="#VARIABLES.gvDATASOURCE_USER#"> 

SELECT email,smtpAddress,smtpAddressPort 

FROM tblUserAccounts, tblMyEmailSetup 
WHERE tblUserAccounts.user_id = #SESSION.user id# 
AND myEmailSetup_id =1 ~ 

</CFQUERY> 

<CFMAIL 

FROM="#getUserEmail.email#" 

SUB JECT="# FORM.msgSubj ect#" 

TO=”#FORM.msgTo#" 

TYPE="HTML" 

SERVER="#getUserEmai1.smtpAddress #" 
PORT="#getUserEmail.smtpAddressPort#" 

> 

#FORM.msgBody# 

</CFMAIL> 

</CFIF> 

<STYLE TYPE="text/css"> 

.msgEdit 

{ 

font: 8pt Tahoma, Verdana, Arial; 
background-color: #FFFFFF; 
border: Ipx solid black; 

} 

•toList 

{ 

background-color: FFFFFF; 
font: 8pt Tahoma, Verdana, Arial; 

} 

SPAN.msgText 

{ 

font: 8pt Tahoma, Verdana, Arial; 
font-weight: bold; 
color: blue; 
text-decoration: none; 

} 

A.sendMsg:link 

{ 

color: blue; 
text-decoration: none; 
font-size: lOpt; 
font-weight: bold; 

} 

A. sendMsg:active 

{ 
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color: blue; 
text-decoration: none; 
font-size: lOpt; 
font-weight: bold; 

} 

A.sendMsg:visited 

{ 

color: blue; 
text-decoration: none; 
font-size: lOpt; 
font-weight: bold; 

} 

A.sendMsg:hover 

{ 

color: blue; 

text-decoration: underline; 
font-size: lOpt; 

} 

</STYLE> 

<CFQUERY NAME="getAddressBook” 

DATASOURCE="#VARIABLES • gvDATASOURCE_USER#”> 

SELECT cLname & & cFname AS fullName,cEmailAddress 

FROM tblMyAddressBook 

WHERE user_id = #SESSION.user_id# 

</CFQUERY> 

<CFFORM NAME“”instantEmail” ACTION="main.cfm?a=myAccount"> 

<SPAN CLASS="nisgText”>To:</SPAN><BR> 

<SELECT 

CLASS="toList” 

NAME=”msgTo” 

SIZE="1” 

> 

<CFLOOP QUERY=”getAddressBook”> 

<CFOUTPUT> 

<OPTION VALUE="#cEmailAddress#">#fulIName# 

</CFOUTPUT> 

</CFLOOP> 

</SELECT> 

<SPAN CLASS="msgText”>Subject:</SPAN><BR><INPUT CLASS="msgEdit” 
TYPE="text" NAME="msgSubject" SIZE=”20” VALUE="” MAXLENGTH=”100” 
REQUIRED="no"><BR> 

<SPAN CLASS=”msgText">Message:</SPAN><BR><TEXTAREA CLASS="insgEdit” 
COLS=20 R0WS=5 NAME=”msgBody” WRAP=”soft"></TEXTAREA> 

<BR> 

<BR> 

<A CLASS=”sendMsg" 

HREF=”j avascript:document.instantEmail.submit();">Send Message</A> 
</CFFORM> 


159 



COMPSTQCKGRABBER.CFM 


<STYLE TYPE="text/css”> 

.msgEdit 

{ 

font: 8pt Tahoma, Verdana, Arial 
background-color: #FFFFFF; 
border: Ipx solid black; 

} 

.toList 

{ 

background-color: FFFFF; 
font: 8pt Tahoma, Verdana, Arial 
} 

SPAN.msgText 

{ 

font: 8pt Tahoma, Verdana, Arial 
font-weight: bold; 
color: blue; 
text-decoration: none; 

} 

A.sendMsg:link 

{ 

color: blue; 
text-decoration: none; 
font-size: lOpt; 
font-weight: bold; 

} 

A. sendMsg:active 

{ 

color: blue; 
text-decoration: none; 
font-size: lOpt; 
font-weight: bold; 

} 

A. sendMsg:visited 
{ 

color: blue; 
text-decoration: none; 
font-size: lOpt; 
font-weight: bold; 

} 

A. sendMsg:hover 

{ 

color: blue; 

text-decoration: underline; 
font-size: lOpt; 

} 


</STYLE> 




<CF_srStockGrabber 
TickerSyinbols="siTmiix” 
QueryNaine="GetQuot es " 

ErrorCheck=”Yes” 

> 

<CFOUTPUT> 

<B>My Stocks:</B> 

<BR> 

<CFIF IsDefined( "QUERY.GetQuotes” )> 
#GetQuotes. Syinbol#<BR> 

#GetQuotes.Exchange#<BR> 

#GetQuotes. Last__Traded_Price#<BR> 
#GetQuotes.Change#<BR> 

#GetQuotes.Last_Traded_Time#<BR> 
#GetQuotes.Last_Traded_Date#<BR> 
#GetQuotes.Opening_Price#<BR> 

#GetQuotes.Days_High#<BR> 

#GetQuotes.Days_Low#<BR> 

#GetQuotes. Voluine#<BR> 

<CFELSE> 

Not Available 
</CFIF> 

</CFOUTPUT> 

5. JAVASCRIPT FILES 

COOKIESJS 


// Cookie Functions 

// save/read/delete cookie functions for storing small chunks of data 
in the browser 
// 19990326 

// Copyright (C) 1999 Dan Steinman 

// Distributed under the terms of the GNU Library General Public 
License 

// Available at http://www.dansteinman.com/dynapi/ 

// thanks to: Jesee Chisholm <JCHISHOLM@SENSORMATIC~VPD.com> 

function saveCookie(name,value,days) { 
if (days) { 

var date = new Date(); 

date.setTime(date.getTime()+(days*24*60*60*1000)) 
var expires = expires=”+date.toGMTString() 

} 

else expires = ”” 

document.cookie = name+”=”+value+expires+”; path-/" 

} 

function readCookie(name) { 

var nameEQ = name + ”=" 

var ca = document.cookie.split (';’) 

for(var i=0;i<ca.length;i++) { 

var c = ca[i]; 

while (c. charAt (0) ') c = c. substring (1, c. length) 
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If (c.indexOf(nameEQ) == 0) return c.substring(nameEQ.length,c.length) 

return null 
} 

function deleteCookie(name) { 
saveCookie(name,-1) 

} 


WDDXJS 



// serializeValue() serializes any value that can be serialized 

// returns true/false 

function wddxSerializer_serializeValue(obj) 


var bSuccess = true; 

if (typeof(obj) == "string") 

{ 

// String value 

this.serializeString(obj); 

} 

else if (typeof(obj) == "number”) 

{ 

// Number value 

this.write{"<niimber>" + obj + "</nuinber>") ; 

} 

else if (typeof(obj) == "boolean") 

{ 

// Boolean value 

this.write("<boolean value=’" + obj + "'/>"); 

else if (typeof(obj) == "object") 

{ 

if (obj == null) 

{ 

// Null values become empty strings 
this.write("<string></string>"); 

} 

else if (typeof(obj.wddxSerialize) == "function") 

{ 

// Object knows how to serialize itself 
bSuccess = obj.WddxSerialize(this); 

} 

else if { 

typeof(obj.join) == "function" && 
typeof(obj.reverse) == "function" && 
typeof(obj.sort) == "function" && 
typeof (obj .length) == "niimber") 

{ 

this.write("<array length='" + obj.length + "’>"); 
for (var i = 0; bSuccess && i < obj.length; ++i) 

bSuccess = this.serializeValue(obj[i]); 
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this.write("</array>”); 

} 

else if { 

typeof(obj.getTimezoneOffset) == "function" && 
typeof(obj.toGMTString) == "function”) 

{ 

// Possible Date 

this.write{ "<dateTime>” + 

obj .getYear0 + + {obj .getMonth() + 1) + + obj.getDateO + 

”T" + obj.getHours0 + + obj.getMinutes() + + 

obj.getSeconds()); 
if (this.useTimezoneInfo) 

{ 

this.write(this.timezoneString); 

} 

this.write("</dateTime>"); 

} 

else 

{ 

// Some generic object; treat it as a structure 
this.write(”<struct>"); 
for (var prop in obj) 

{ 

bSuccess = this.serializeVariable(prop, obj[prop]); 
if (! bSuccess) 

{ 

break; 

} 

} 

this.write(”</struct>") ; 

} 

} 

else 

{ 

// Error: undefined values or functions 
bSuccess = false; 

} 

// Successful serialization 
return bSuccess; 

} 

/////////////////////////////////////////////////////////////////////// 

//// 

// serializeString0 serializes a string using JavaScript 
functionality 

// available in NS 3.0 and above 
function wddxSerializer^serializeString(s) 

{ 

this.write(”<string>”) ; 

for (var i = 0; i < s.length; ++i) 

{ 

this.write(this.et[s.char At (i)]); 

} 

this.write{"</string>"); 

} 
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/////////////////////////////////////////////////////////////////////// 

// serializeStringOld() serializes a string using JavaScript 

functionality 

// available in IE 3.0 

function wddxSerializer_serializeString01d(s) 

{ 

this.write("<string><![CDATA[") ; 

pos = s.indexOf("]]>"); 
if (pos != -1) 

{ 

startPos = 0; 
while (pos != -1) 

{ 

this.write(s.si±>string(startPos, pos) + "]]>]]&gt;<![CDATA[”); 

startPos = pos +3; 
if (startPos < s.length) 

{ 

pos = S.indexOf("]]>", startPos); 

} 

else 

{ 

// Work around bug in indexOfO 

// "" will be returned instead of -1 if startPos > length 
pos = -1; 

} 

} 

this.write(s.substring(startPos, s.length)); 

} 

else 

{ 

this.write(s); 

} 

this.write("]]></string>"); 

} 


/////////////////////////////////////////////////////////////////////// 

// serializeVariable() serializes a property of a structure 
// returns true/false 

function wddxSerializer_serializeVariable(name, obj) 

var bSuccess = true; 

if (typeof(obj) != "function") 

{ 

this.write("<var name='" + name.toUpperCase() + "’>"); 
bSuccess = this.serializeValue(obj); 
this.write("</var>"); 

} 
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return bSuccess; 

} 


/////////////////////////////////////////////////////////////////////// 

//// 

// write 0 appends text to the wddxPacket buffer 
function wddxSerializer__write (str) 

{ 

this.wddxPacket += str; 

} 


/////////////////////////////////////////////////////////////////////// 

//// 

// serialize 0 creates a WDDX packet for a given object 

// returns the packet on success or null on failure 

function wddxSerializer_serialize(rootObj) 

{ 

this.wddxPacket = 

this.write(”<wddxPacket version^’0.9’><header/><data>”); 
var bSuccess = this.serializeValue{rootObj); 
this.write(”</data></wddxPacket>"); 

if (bSuccess) 

{ 

return this.wddxPacket; 

} 

else 

{ 

return null; 

} 

} 


/////////////////////////////////////////////////////////////////////// 

//// 

// WddxSerializer{) binds the function properties of the object 
function WddxSerializer() 

{ 

// Compatibility section 

if (navigator.appVersion != ”” && navigator.appVersion.indexOf("MSIE 
3 .") == - 1 ) 

{ 

// Character encoding table 

// Encoding table 
var et = new Array(); 

// Numbers to characters table and 
// characters to numbers table 
var n2c = new Array(); 
var c2n = new Array(); 

for (var i = 0; i < 256; ++i) 

{ 
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// Build a character from octal code 
var dl = Math.floor(i/64); 
var d2 = Math.floor{(i%64)/8); 
var d3 = i%8; 

var c = eval("\"\\" + dl.toString(10) + d2.toString(10) + 
dS.toStringdO) + "\"”) ; 

// Modify character-code conversion tables 
n2c[i] = c; 
c2n[c] = i; 

// Modify encoding table 

if (i < 32 && i != 9 && i != lO && i != 13) 

{ 

// Control characters that are not tabS/ newlines^ and carriage returns 

// Create a two-character hex code representation 
var hex = i.toString(16); 
if (hex.length == 1) 

{ 

hex = "0" + hex; 

} 

et[n2c[i]] = "<char code=”' + hex + 

} 

else if (i < 128) 

{ 

// Low characters that are not special control characters 
et[n2c[i]] = n2c[i]; 

} 

else 

{ 

// High characters 

et[n2c[i]] = "&#x" + i.toString(16) + 

} 

} 

// Special escapes 
et["<"] = "&lt;”; 
et[">"] = "&gt;"; 
et["&"] = "&amp;"; 

// Store tables 
this.n2c = n2c; 
this.c2n = c2n; 
this.et = et; 

// The browser is not MSIE 3.x 

this.serializeString = wddxSerializer_serializeString; 

else 

{ 

//The browser is most likely MSIE 3.x, it is NS 2.0 compatible 
this.serializeString = wddxSerializer_serializeString01d; 

// Setup timezone information 
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var tzOffset == (new Date () ) •getTimezoneOffset () ; 

// Invert timezone offset to convert local time to UTC time 
if (tzOffset >= 0) 

{ 

this.timezonestring = 

} 

else 

{ 

this.timezonestring = 

} 

this.timezonestring += Math.floor(Math,abs(tzOffset) / 60) + + 

(Math.abs(tzOffset) % 60); 

// Common properties 

this.useTimezoneInfo = true; 

// Common functions 

this. serialize = wcidxSerializer_serialize; 

this.serializeValue = wddxSerializer_serializeValue; 

this.serializeVariable = wddxSerializer_serializeVariable; 

this.write = wddxSerializer_write; 

} 


/////////////////////////////////////////////////////////////////////// 

//// 

// 

// WddxRecordset 

// 

/////////////////////////////////////////////////////////////////////// 

//// 


/////////////////////////////////////////////////////////////////////// 

//// 

// getRowCount() returns the number of rows in the recordset 
function wddxRecordset_getRowCount() 

{ 

var nRowCount =0; 
for (var col in this) 

{ 

if (typeof(this[col]) == "object”) 

{ 

nRowCount = this[col].length; 
break; 

} 

} 

return nRowCount; 

} 


/////////////////////////////////////////////////////////////////////// 

//// 

// addColumn (name) adds a column with that name and length == 
getRowCount() 
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function wddxRecordset_addColumn(name) 

{ 

var nLen = this.getRowCount{); 
var colValue = new Array(nLen); 
for (var i = 0; i < nLen; ++i) 

{ 

colValue[i] = null; 

} 

this[name] = colValue; 

} 


lllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllll 

// addRowsO adds n rows to all columns of the recordset 
function wddxRecordset_addRows(n) 

{ 

for (var col in this) 

{ 

var nLen = this[col].length; 

for (var i = nLen; i < nLen + n; ++i) 

{ 

this[col][i] = null; 

} 

} 

} 


/////////////////////////////////////////////////////////////////////// 

//// 

// getFieldO returns the element in a given (row, col) position 
function wddxRecordset_getField(row, col) 

{ 

return this[col][row]; 

} 


/////////////////////////////////////////////////////////////////////// 

// setFieldO sets the element in a given (row, col) position to 
value 

function wddxRecordset_setField(row, col, value) 

{ 

this[col][row] = value; 

} 


/////////////////////////////////////////////////////////////////////// 

// wddxSerialize0 serializes a recordset 

// returns true/false 

function wddxRecordset_wddxSerialize(serializer) 

{ 

// Create an array and a list of column names 

var colNamesList = 

var colNames = new Array(); 

var i = 0; 
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"object") 


for (var col in this) 

{ 

if (typeof(this[col]) == 

{ 

colNames[i++] = col; 

if (colNamesList.length > 0) 

{ 

colNamesList += 

} 

colNamesList += col; 

} 

} 

var nRows = this.getRowCount(); 

serializer.write("<recordset rowCount='" + nRows + fielc3Names='" + 

colNamesList + "'>"); 

var bSuccess = true; 

for (i = 0; bSuccess && i < colNames.length; i++) 

{ 

var name = colNames[i]; 

serializer.write("<field name='" + name + '">"); 

for (var row = 0; bSuccess && row < nRows; row++) 

{ 

bSuccess = serializer.serializeValue(this[name][row]); 

} 

serializer.write("</field>") ; 

} 

serializer.write("</recordset>"); 

return bSuccess; 

} 


/////////////////////////////////////////////////////////////////////// 

//// 

// dump(escapeStrings) returns an HTML table with the recordset data 
// It is a convenient routine for debugging and testing recordsets 
// The boolean parameter escapeStrings determines whether the <>& 

// characters in string values are escaped as &lt;&gt;&amp; 
function wddxRecordset_dump(escapeStrings) 

{ 

// Get row count 

var nRows = this.getRowCount(); 

// Determine column names 
var colNames = new Array(); 
var i = 0; 

for (var col in this) 

{ 

if (typeof(this[col]) == "object") 

{ 
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colNaraes [i++] = col; 

} 

} 

// Build table headers 

var o = "<table border=l><tr><td><b>RowNuinber</b></td>"; 
for (i = 0; i < colNames.length; ++i) 

{ 

o += "<td><b>" + colNames[i] + "</b></td>"; 

} 

o += "</tr>"; 

// Build data cells 

for (var row = 0; row < nRows; ++row) 

{ 

o += "<tr><td>" + row + "</td>"; 
for (i = 0; i < colNames.length; ++i) 

{ 

var elem = this.getField(row, colNames[i]); 
if (escapeStrings && typeof(elem) == "string") 

{ 

var str = 

for (var j = 0; j < elem.length; ++j) 

{ 

var ch = elem.charAt(j); 
if (ch == '<') 

{ 

str += "&lt;"; 

} 

else if (ch == '>') 

{ 

str += "&gt;"; 

} 

else if (ch == '&') 

{ 

str += "&amp;"; 

} 

else 

{ 

str += ch; 

} 

} 

o += ("<td>" + str + ”</td>”); 

} 

else 

{ 

o += ("<td>" + elem + "</td>"); 

} 

} 

o += "</tr>"; 

} 

// Close table 
o += "</table>"; 

// Return HTML recordset diomp 
return o; 
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} 


/////////////////////////////////////////////////////////////////////// 

//// 

// WddxRecordset() creates an empty recordset 

// WddxRecordset(columns) creates a recordset with these columns 
// WddxRecordset(columns, rows) creates a recordset with these columns 
and some number of rows 
function WddxRecordset() 

{ 

this.getRowCount = wddxRecordset_getRowCount; 
this*addColumn = wddxRecordset_addColumn; 
this.addRows = wddxRecordset_addRows; 
this.getField = wddxRecordset_getField; 
this.setField = wddxRecordset_setField; 
this.wddxSerialize = wddxRecordset^wddxSerialize; 
this.dump = wddxRecordset_dump; 

if (WddxRecordset.arguments•length > 0) 

{ 

var cols = WddxRecordset.arguments[0]; 

var nLen = WddxRecordset.arguments.length > 1 ? 

WddxRecordset.arguments[1] : 0; 

for (var i = 0; i < cols.length; ++i) 

{ 

var colValue = new Array(nLen); 
for (var j = 0; j < nLen; ++j) 

{ 

colValue[j] = null; 

} 

this[cols[i]] = colValue; 

} 

} 

} 

RE2001JS 

<! — 

function setStatus{ strStatusLine ) 

{ 

window.status = strStatusLine; 

} 

// make sure user really wants to delete record 
function EnsureDeleteRecord() 

{ 

if ( confirm{ "Are you sure you want to delete this record?" ) ) 

{ 

return( true ); 

} 

else 

return( false ); 
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} 


function quickList{ element ) 

{ 

if { element.value != ) 

location = element.value; 

} 

<! Original: Nannette Thacker (nannette@shiningstar.net) —> 

<!— Web Site: http://www.shiningstar.net —> 

<!— This script and many more are available free online at —> 

<! The JavaScript Source!! http://javascript,internet.com —> 

<!— Begin 

var version4 = (navigator,appVersion,charAt(0) == "4"); 
var popupHandle; 
function closePopupO { 

if(popupHandle != null && (popupHandle.closed) popupHandle,close(); 

function displayPopup(position,url,name,height,width,evnt) { 

// position=l POPUP: makes screen display up and/or left, down and/or 
right 

// depending on where cursor falls and size of window to open 
// position=2 CENTER: makes screen fall in center 
var properties = "toolbar = 0, location = 0, height = " + height; 
properties = properties + ", width=" + width; 

var leftprop, topprop, screenX, screenY, cursorX, cursorY, padAmt; 
if(navigator.appName == "Microsoft Internet Explorer") { 
screenY = docxoment.body.offsetHeight; 
screenX = window.screen.availWidth; 

} 

else { 

screenY = window.outerHeight 
screenX = window.outerWidth 
} 

if(position == 1) { // if POPUP not CENTER 

cursorX = evnt.screenX; 

cursorY = evnt.screenY; 

padAmtX = 10; 

padAmtY =10; 

if((cursorY + height + padAmtY) > screenY) { 

// make sizes a negative number to move left/up 
padAmtY = (-30) + (height * -1); 

// if up or to left, make 30 as padding amount 
} 

if((cursorX + width + padAmtX) > screenX) { 
padAmtX = (-30) + (width * -1); 

// if up or to left, make 30 as padding amount 

} 

if(navigator.appName == "Microsoft Internet Explorer") { 
leftprop = cursorX + padAmtX; 
topprop = cursorY + padAmtY; 

} 

else { 

leftprop = (cursorX - pageXOffset + padAmtX); 
topprop = (cursorY - pageYOffset + padAmtY); 
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} 

} 

else{ 

leftvar = (screenX - width) / 2; 
rightvar = (screenY - height) / 2; 

if(navigator.appName == "Microsoft Internet Explorer") { 
leftprop = leftvar; 
topprop = rightvar; 

} 

else { 

leftprop = (leftvar - pageXOffset); 
topprop = (rightvar - pageYOffset); 

} 

} 

if(evnt != null) { 

properties = properties + ", left = " + leftprop; 
properties = properties + ", top = " + topprop; 

} 

closePopupO ; 

popupHandle = open(url,name,properties); 

} 

//—> 

6. GET INFORMATION FILES 

GETCONTENT.CFM 

<!- INCLUDE DEFAULTS JUST IN CASE USER DEFINED CONFIG FILE NOT FOUND 

-> 

<CFINCLUDE TEMPLATE="getProgramDefaults.cfm"> 

<CFSWITCH EXPRESSION="#ATTRIBUTES.Type#"> 

<CFCASE VALUE=”file"> 

<CFIF #ATTRIBUTES.File# NEQ ""> 

<CFIF #FileExists( GetDirectoryFromPath( GetTemplatePath() ) & 
ATTRIBUTES.File )#> 

<CFINCLUDE TEMPLATE="#ATTRIBUTES.File#"> 

<CFELSE> 

File Not Available. 

</CFIF> 

<CFELSE> 

File Not Available. 

</CFIF> 

</CFCASE> 

<CFCASE VALUE="url"> 

<CFHTTP URL="#ATTRIBUTES.URL#" RESOLVEURL="Yes"> 

<CFOUTPUT> 

#CFHTTP.FileContent# 

</CFOUTPUT> 

</CFCASE> 

<CFCASE VALUE="inline"> 

<CFOUTPUT> 

#ATTRIBUTES.InLine# 

</CFOUTPUT> 

</CFCASE> 
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</CFSWITCH> 


GETGREETING CFM 

<STYLE TYPE="text/css"> 

SPAN.getGreeting 

{ 

color: black; 

text-decoration: none; 

font: lOpt Tahoma, Verdana, Arial; 

font-weight: bold; 

} 

</STYLE> 

<CFINCLUDE TEMPLATE="getProgramDefaults.cfm"> 

<!-get user's record-> 

<CFQUERY NAME="GetUserRecord" 

DATASOURCE="#VARIABLES. gvDATASOURCE_USER#"> 

SELECT * 

from tblUserAccounts 

WHERE user_loginid = '#SESSION.loginid#' 

</CFQUERY> 

<CFOUTPUT QUERY="GetUserRecord"> 

<CFSET username = #rank# & " " & #fname# & " " & #lname#> 

<CFIF ( #Hour( Now() )# GTE 0 ) AND ( #Hour( Now{) )# LT 12 )> 

<SPAN CLASS="getGreeting">Good Morning 
#VARIABLES.username#</SPAN> 

<CFELSEIF ( #Hour( Now() )# GTE 12 ) AND ( #Hour{ Now() )# LT 18 )> 
<SPAN CLASS="getGreeting">Good Afternoon 
#VARIABLES.username#</SPAN> 

<CFELSEIF ( #Hour( Now() )# GTE 18 ) AND ( #Hour( Now() )# LTE 23 )> 
<SPAN CLASS=”getGreeting">Good Evening 
#VARIABLES.username#</SPAN> 

</CFIF> 

</CFOUTPUT> 


GETINFQRMATION.CFM 

<CFQUERY NAME="getInformation" 
DATASOURCE="#VARIABLES.gvDATASOURCE_CONFIG#"> 

SELECT * 

FROM tblWhatsNew 

ORDER BY infoDateCreated DESC 

</CFQUERY> 

<TABLE BORDERED WIDTH=100%> 

<CFOUTPUT QUERY="getInformation"> 
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<TR> 

<TD CLASS="adWindowBody"> 

<B>#infoTitle#</B><BR> 

iinfoBody# 

</TD> 

</TR> 

</CFOUTPUT> 

<TR> 

<TD CLASS="adWindowBody'' ALIGN="center"> 

<HR SIZE=1 WIDTH=75%> 

<A CLASS="basic" 

HREF="main.cfm?a=adininistration&body=adminWhatsNew.cfiti">Add/Edit What's 
New Infonnation</A> 

</TD> 

</TR> 

</TABLE> 


GETMESSAGE.CFM 


<CFPOP 

SERVER="Saipan.nps.navy.mil" 

USERNAME="mwhiteca" 

PASSWORD="mj ma2B 01" 

ACTION="GetAll" 

MESSAGENUMBER="#URL.msgid#" 

NAME="GetMessage" 

> 

<CFOUTPUT QUERY="GetMessage"> 

Message Number: #HTMLEditFormat( MessageNumber )#<BR> 
To: #HTMLEditFormat{ To )#<BR> 

From: #HTMLEditFormat{ From )#<BR> 

Subject: #HTMLEditFormat( Subject )#<BR> 

Date: #HTMLEditFormat( Date )#<BR> 

From: #HTMLEditFormat( From )#<BR> 

CC: #HTMLEditFormat( cc )#<BR> 

Reply To: #HTMLEditFormat( replyto )#<BR> 

Header: #HTMLEditFormat( header )#<BR><BR> 

Body: #HTMLEditFormat{ body )#<BR> 

</CFOUTPUT> 


GETPAGECOMMENTS.CFM 


<CFOUTPUT> 

<! — 

'k'k-k'k'k'k-k^rk'k'k'k’k'ir'k'k'k'k'ie'k'k'k'ic'k’k’ir'k 

*** PAGE NAME: 

iaComponent[URL.alD][cAPPLICATION][cAPPLICATION_NAME]# 

*** DESCRIPTION: 

#aComponent[URL.alD][cAPPLICATION][cAPPLICATION_DESCRIPTION]# 
*** DATE CREATED: 

#aComponent[URL.alD][cAPPLICATION][cAPPLICATION DATECREATED]# 
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CREATED BY: 

#aComponent[URL.aID][cAPPLICATION][cAPPLICATION CREATEDBY]# 
*** LAST UPDATED: “ 

#aComponent[URL.aID][cAPPLICATION][cAPPLICATION LASTUPDATED]# 
*** UPDATED BY: 

#aCoinponent[URL.aID][cAPPLICATION][cAPPLICATION UPDATEDBY]# 
*** COMMENTS: 

#aComponent[URL.alD][cAPPLICATION][cAPPLICATI0N_CARG01]# 

'k'k'k’k-k'k-k-k'k-k'k’ie-k-k-k-k-k'k-k'k'k'k'^-k-k-ie'k 
-> 

</CFOUTPUT> 

GETPROGRAMDEFAULTS.CFM 


<!-PROGRAM SPECIFIC-> 

<CFSET gvHOMEPAGE_NAME = ’index.htm'> 

<!-DATASOURCE DEFAULTS-> 

<CFSET gvDATASOURCE_USER = 'reUSERS'> 

<CFSET gvDATASOURCE_DATA = 'reDATA'> 

<CFSET gvDATASOURCE_CONFIG = ’reCONFIG’> 

<CFSET gvDATASOURCE_ARCHIVE = 'reARCHIVE'> 

<!-ADMINISTRATION-> 

<CFSET gvAdminName 
<CFSET gvAdminPhone 
<CFSET gvAdminEmail 
<CFSET gvAdininName_Sec 
<CFSET gvAdininPhone_Sec 
<CFSET gvAdminEmail_Sec 

<!- DIRECTORIES DEFAULTS -> 

<CFSET gvFILEPATH = 'C:\WINDOWS\Profiles\Michael 

WhitecarXMy Documents\WebApplications\ReadinessExplorer\2000\'> 
<CFSET gvIMAGE_DIRECTORY = 'images/'> 

<CFSET gvJS_DIRECTORY = ’js/'> 

<CFSET gvUSER_DIRECTORY = 'users/'> 

<CFSET gvRESOURCE_DIRECTORY = 'Resources'> 

<!-RESOURCES-> 

<CFSET gvMS_RESOURCE_CONVERTERS = 
'http://www.microsoft.eom/office/000/viewers.htm'> 

<!- SECURITY ACCESS DEFAULTS -> 

<CFSET gvLEVEL_ADMIN = '10'> 

<!-ORGANIZATION-> 

<CFSET gvAPP_HOME = 'http;//127.0.0.1/re2001/'> 

<CFSET gvAPP_COMMAND = 'Michael Whitecars Test Site'> 

<CFSET gvHOME_PAGE 

'http: //WWW. geocities.com/queue!ifedevelopment/'> 

<CFSET gvSMTP_SERVER = '127.0.0.1'> 

<CFSET gvFromEmail = 'mikewhitecar@cs.com'> 
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<!-SECURITY-> 

<CFSET gvTIMEOUTjyilNS 
<CFSET gvTIMEOUT_SECS 
<CFSET gvSECURITYEMAIL 
<CFSET gvLOGON_ATTEMPTS 
<CFSET gvIP_BLOCKING 
<CFSET gvDOW_BLOCKING 
<CFSET gvDOMAIN_BLOCKING 
<CFSET gvDOMAIN^BLOCKINGLIST 
<CFSET gvDOW_DAYSTOBLOCK 
<CFSET gvTIME_BLOCKING 
<CFSET gvTIME_FROMBLOCK 
<CFSET gvTIME^TOBLOCK 
<CFSET gvDEFAULTPSWDEXP 
<CFSET gvMIN_PSWD_SIZE 
<CFSET gvPSWD_REUSE 
<CFSET gvPSWD__FORGET 
<CFSET gvPSWD_REMEMBER 
<CFSET gvPSWD_FORGET__CHG 
<CFSET gvPSWD_LOCKIFFAIL 
<CFSET gvPSWD_SENDEMAIL 
<CFSET gvPSWD_ISCASE 
<CFSET gvPSWD_INCLNUM 
<CFSET gvMSG^FAILEDLOGON 
<CFSET gvMSG_USEREXPIRE 
<CFSET gvMSG_RECORDLOCKED 
contact the administrator.’> 
<CFSET gvMSG_IPBLOCKING 
<CFSET gvMSG__DOMAINBLOCKING 
<CFSET gvMSG_DOWBLOCKING 
<CFSET gvMSG_TIMEBLOCKING 


- * 90 '> 

- 5340 > 

== ’No’> 

= 'No'> 

= ^No’> 

= 'Yes'> 

= ’mil'> 

= 'No’> 

= ’ 00 : 00 ’> 

= ’ 00 : 00 ’> 

= ’ 60 ’> 

= »8»> 

= ’No'> 

= ’Yes'> 

= ’Yes'> 

= 'No’> 

= ’No’> 

= 'Yes»> 

= 'Yes’> 

= ’No’> 

= 'Unauthorized logon!'> 

~ ’Account has expired!’> 

= ’Your record has been locked! Please 

= ’Not authorized from your location!’> 
= 'Not authorized from your domain!’> 

= ’Not authorized during this day!’> 

= ’Not authorized during this time!’> 


<!- SECURITY ACCESS DEFAULTS -> 

<CFSET gvLEVEL_ADMIN = ’10’> 


GETSECURITY.CFM 

<CFIF NOT IsDefined( "URL.sID" )> 

<CFOUTPUT> 

<TABLE BORDER=0 WIDTH=100%> 

<TR> 

<TD CLASS="adWindowBodyBold">Last Visit:</TD> 

<TD CLASS="adWindowBody">#DateFormat ( SESSION.LastLogOn, 'dd-ininm-yyyy' 
)# at #TimeFormat ( SESSION.LastLogOn, )#</TD> 

</TR> 

<TR> 

<TD CIiASS=”adWindowBodyBold">Today's Date:</TD> 

<TD CLASS="adWindowBody">#DateForinat { Now(), 'dd-mitim-yyyy' )# at 
#TimeFormat( Now(), ’Hrmm' )#</TD> 

</TR> 

<TR> 

<TD CLASS="adWindowBodyBold">Last Login Address:</TD> 

<TD CLASS="adWindowBody">#CLIENT.LastIP#</TD> 

</TR> 

<TR> 
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<TD CLASS—"adWindowBodyBold">Curent Login Address :</TD> 

<TD CLASS="adWindowBody">#CLIENT.CurrIP#</TD> 

</TR> 

<TR> 

<TD CLASS="adWindowBodyBold">Account Expires:</TD> 

<TD CLASS="adWindowBody">#DateFormat( SESSION.accountExpires, 'dd-minm- 

yyyy' )#</td> 

</TR> 

<TR> 

<TD CLASS="adWindowBodyBold">Password Expires:</TD> 

<TD CLAS S="adWindowBody">Wo rking</TD> 

</TR> 

<TR> 

<TD CLASS="adWindowBody” ALIGN="center'' C0LSPAN=2> 

<HR SIZE=1 WIDTH=75%> 

<A CLASS="basic" HREF="main.cfin?a=myAccount&body=mySecurity.cfm">Goto 

mySecurity Page</A> 

</TD> 

</TR> 

</TABLE> 

</CFOUTPUT> 

</CFIF> 


GETSTRUCTURE.CFM 

<!-get XML configuration-> 

<CFINCLUDE TEMPLATE="component_declare.cfm"> 

<CFFILE 

ACTION="read" 

FILE="#GetDirectoryFromPath( GetTemplatePath() )#component.cfq" 
VARIABLE="DataPacket" 

> 

<CFWDDX 

INPUT="#DataPacket#" 

OUT PUT="aComponent" 

AC TION="WDDX2CFML" 


GETSTYLE.CFM 

<! convert default SESSION.colors to XML and write to disk -> 

<CFIF NOT #FileExists( GetDirectoryFromPath( GetTemplatePath() ) & 
"desktop.cfg" )#> 

<CFQUERY NAME="getColorElements" 

DATASOURCE="#VARIABLES.gvDATASOURCE_CONFIG#"> 

SELECT ceDefaultValue,ceCSSName 
FROM tblColorElements 

</CFQUERY> 
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<1 -declare array to hold color structures-> 

<CFSET myColors = ArrayNew(2)> 

<!- declare color structure -> 

<CFSET SESSION.colors = StructNew()> 

<!- populate structure with color data -> 

<CFLOOP QUERY="getColorElements"> 

<CFSET temp = #StructInsert( SESSION.colors,ceCSSName,ceDefaultValue 
)#> 

</CFLOOP> 

<CFSET myColors[1] [1] = "Default"> 

<CFSET myColors[1][2] = SESSION.colors> 

<CFWDDX 

INPUT="#myColors#" 

OUTPUT=”NewPacket" 

ACT 10N= " C mL2 WDDX " 

> 

<CFLOCK TIMEOUT="60”> 

<CFFILE 

ACTION=”write" 

FILE="#GetDirectoryFromPath( GetTemplatePath() )#desktop.cfg" 
OUTPUT="#NewPacket#" 

> 

</CFLOCK> 

</CFIF> 

<CFIF NOT IsDefined( "SESSION.colors" )> 

<!- open desktop.cfg file and convert back to CFM -> 

<CFLOCK TIMEOUT="60"> 

<CFFILE 

ACTION="read" 

FILE="#GetDirectoryFromPath( GetTemplatePath() )#desktop.cfg" 
VARIABLE="DataPacket" 

> 

</CFLOCK> 

<CFWDDX 

INPUT="#DataPacket#" 

OUTPUT="myColors" 

ACTI0N="WDDX2CFML" 

> 

<!- get structure of colors according to user preference -> 

<CFSET colorFlag = False> 

<CFIF #SESSION.deskTop# EQ "" OR #SESSION.deskTop# EQ "Default"> 
<CFSET SESSION.colors = myColors[1][2]> 

<CFELSE> 

<CFLOOP INDEX="counter" FROM="l" TO="#ArrayLen( myColors )#"> 
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<CFIF myColors[#counter#][1] EQ "#SESSION.deskTop#"> 

<CFSET SESSION.colors = myColors[#counter#][2]> 

<CFSET colorFlag = True> 

<CFBREAK> 

</CFIF> 

</CFLOOP> 

<CFIF NOT colorFlag> 

<CFSET SESSION.colors = myColors[l][2]> 

</CFIF> 

</CFIF> 

</CFIF> 

<CFOUTPUT> 

/* Main Home Page */ 

Body.Home 
{ 

background-color: #Iif( StructKeyExists( SESSION.colors,"Body.Home" 
),De( StructFind( SESSION.colors, "Body.Home" ) ),De( 'ffffff* ) )#; 
font: lOpx Tahoma, Verdana, Arial; 
margin-top: 3; 
margin-left: 5; 

} 

HR.standard 

{ 

color: #Iif{ StructKeyExists{ SESSION.colors,"HR.standard" ),De( 
StructFind( SESSION.colors,"HR.standard" ) ),De{ '666699' ) )#; 


QUICKLINK PROPERTIES 

★********************************^^^^^^^^^^^ 

A.quickLink:link 

{ 

color: #Iif( StructKeyExists( SESSION.colors,"^.quickLink:link" ),De( 
StructFind( SESSION.colors,"A.quickLinkrlink" ) ),De{ 'ffffff ) )#; 
text-decoration: none; ' 

font-size: 8pt; 
font-weight: bold; 

} 

A.quickLink:active 

{ 

color: #Iif( StructKeyExists! SESSION.colors,"A.quickLink:active" ),De{ 
StructFind! SESSION.colors,"A.quickLink:active" ) ),De( 'ffffff ) )#; 
text-decoration: none; 
font-size: 8pt; 
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font-weight: bold; 

} 


A.quickLink:visited 

{ 

color: #Iif( StructKeyExists( SESSION.colors,"A.quickLink:visited” 

),De( StructFind( SESSION,colors,”A.quickLink:visited” ) ),De( ’ffffff' 
) )#; 

text-decoration: none; 
font-size: 8pt; 
font-weight: bold; 

} 

A.quickLink:hover 

{ 

color: #Iif( StructKeyExists( SESSION.colors,”A.quickLink:hover” ),De( 
StructFind( SESSION.colors,"A,quickLink:hover” ) ),De( 'ffffff’ ) )#; 
text-decoration: none; 
font-size: 8pt; 

} 

END-QUICKLINK PROPERTIES 


/* body of work area */ 

TD.workAreaBody 

{ 

background-color: #Iif( StructKeyExists( 

SESSION.colors,"TD.workAreaBody" ),De( StructFind( 

SESSION.colors,"TD.workAreaBody" ) ),De{ ’ffffff’ ) )#; 

} 

/* bottom footer of each page */ 

TD.footer 

{ 

font: llpx Tahoma, Verdana, Arial; 

} 

/* Toolbar for each page */ 

A. toolBar:link 

{ 

color: #Iif( StructKeyExists( SESSION.colors,”A.toolBar:link” ),De{ 
StructFind( SESSION,colors,”A.toolBar:link" ) ),De( ’ffffff’ ) )#; 
text-decoration: none; 
font-size: 8pt; 
font-weight: bold; 

} 

A. toolBar:active 

{ 

color: #Iif( StructKeyExists( SESSION.colors,"A.toolBar:active” ),De( 
StructFind( SESSION.colors,"A.toolBar:active” ) ),De( ’ffffff’ ) )#; 
text-decoration: none; 
font-size: 8pt; 
font-weight: bold; 

} 
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A. toolBar:visited 

{ 

color: #Iif( StructKeyExists( SESSION.colors,"A.toolBar:visited" ),De( 
StructFind( SESSION.colors,"A.toolBar:visited" ) ),De( ’ffffff ) )#; 
text-decoration: none; 
font-size: 8pt; 
font-weight: bold; 

} 

A. toolBar:hover 

{ 

color: #Iif( StructKeyExists( SESSION.colors,"A.toolBar:hover" ),De( 
StructFind( SESSION.colors,"A.toolBar:hover" ) ),De( 'ffffff ) )#; 
text-decoration: underline; 
font-size: 8pt; 

} 


TD.toolBar 

{ 

background-color: #Iif( StructKeyExists{ SESSION.colors,"TD.toolBar" 
),De( StructFind( SESSION.colors,"TD.toolBar" ) ),De( '000066' ) )#; 

} 

/* Main tabs for each page */ 

A.mainTab:link 

{ 

color: #Iif{ StructKeyExists( SESSION.colors,"A.mainTab:link" ),De( 
StructFind( SESSION.colors,"A.mainTab:link" ) ),De( 'ffffff ) )#; 
text-decoration: none; 
font-size: 8pt; 
font-weight: bold; 

} 

A.mainTab:active 

{ 

color: #Iif( StructKeyExists( SESSION.colors,"A.mainTab:active" ),De( 
StructFind( SESSION.colors,"A.mainTab:active" ) ),De{ ’ffffff’ ) )#; 
text-decoration: none; 
font-size: 8pt; 
font-weight: bold; 

} 

A.mainTab:visited 

{ 

color: #Iif( StructKeyExists( SESSION.colors,"A.mainTab:visited" ),De( 
StructFind( SESSION.colors,"A.mainTab:visited" ) ),De( 'ffffff ) )#; 
text-decoration: none; 
font-size: 8pt; 
font-weight: bold; 

} 

A.mainTab:hover 

{ 

color: #Iif( StructKeyExists( SESSION.colors,"A.mainTab:hover" ),De( 
StructFind( SESSION.colors, "A.mainTab:hover" ) ),De( 'ffffff ) )#; 
text-decoration: underline; 
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font-size: 8pt; 

} 

TD.mainTabSelected 

{ 

background-color: #Iif ( StructKeyExists( 

SESSION.colors,"TD.mainTabSelected" ),De( StructFind( 

SESSION.colors, "TD.iaainTabSelected" ) ), De ( ’666699’ ) )#; 

} 

TD.mainTabUnSelected 

{ 

background-color: #Iif( StructKeyExists( 

SESSION.colors,"TD.mainTabUnSelected” ),De( StructFind( 
SESSION.colors,"TD.mainTabUnSelected” ) ),De( ’ffcc66’ ) )#; 

} 

/* panel settings for each page */ 

TD.panelTitleRaised 

{ 

border-top: solid ##FFFFFF Ipx; 
border-left: solid ##FFFFFF Ipx; 
border-right: solid ##584300 Ipx; 
border-bottom: solid ##584300 Ipx; 
background-color: #Iif( StructKeyExists{ 

SESSION.colors,"TD.panelTitleRaised" ),De( StructFind{ 

SESSION.colors,"TD.panelTitleRaised” ) ),De( ’ffccOO’ ) )#; 
font-family: Arial,sans; 
font-size: llpx; 
font-weight: bold; 

} 

TD,panelBackground 

{ 

background-color: #Iif( StructKeyExists( 

SESSION.colors,"TD.panelBackground” ),De( StructFind( 

SESSION.colors,"TD.panelBackground” ) ),De{ ’ffffcc’ ) )#; 

} 

TD.panelComponentRaised 

{ 

border-top: solid ##FFFFFF Ipx; 
border-left: solid ##FFFFFF Ipx; 
border-right: solid ##584300 Ipx; 
border-bottom: solid ##584300 Ipx; 
background-color: #Iif( StructKeyExists( 

SESSION.colors,"TD.panelComponentRaised” ),De( StructFind( 
SESSION.colors,"TD.panelComponentRaised” ) ),De{ 'ffcc66’ ) )#; 
font-family: Tahoma, Arial, sans; 
font-size: lOpx; 
font-weight: bold; 

} 

TD.paneIComponentBody 

{ 

font-family: Tahoma,Arial,sans; 
font-size: lOpx; 
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} 


TABLE.adWindow 

{ 

background-color: #Iif( StructKeyExists( 

SESSION.colorS/"TABLE.adWindow" ),De( StructFind{ 
SESSION.colors,"TABLE.adWindow" ) ),De( ’9999cc' ) )#; 


TD.adWindowTitle 

{ 

background-color: #Iif( StructKeyExists{ 

SESSION.colors,"TD.adWindowTitle" ),De{ StructFind( 

SESSION. colors, "TD.adWindowTitle" ) ),De{ ’9999cc’ ) )#; 
font-family: arial,helvetica; 
font-size: 14px; 
font-weight: bold; 

} 

TD.adWindowBody 

{ 

background-color: #Iif( StructKeyExists( 

SESSION.colors,"TD.adWindowBody" ),De( StructFind( 

SESSION. colors,"TD.adWindowBody" ) ),De( 'ffffff ) )#; 
font-family: arial,helvetica; 
font-size: 12px; 

} 

TD.adWindowBodyBold 

{ 

font-weight: bold; 
font-size: 13px; 

} 

/*************************************^^^^^j, 

REPORT PROPERTIES 

******************** *****************^^^^^^^ 

TR.report FieIdLabe1 

{ 

background-color: #Iif( StructKeyExists( 

SESSION.colors,"TR.reportFieldLabel” ),De( StructFind( 

SESSION. colors,"TR.reportFieldLabel" ) ),De{ 'A8B0D8' ) )#; 
font: lOpx tahoma,Verdana,arial; 
color: black; 
font-weight: bold; 

} 

TR.reportFieldDataEven 

{ 

background-color: #Iif( StructKeyExists( 

SESSION.colors,"TR.reportFieldDataEven" ),De( StructFind( 
SESSION.colors,"TR.reportFieldDataEven" ) ),De( 'F7F7F7' ) )#; 
font: 8pt tahoma,verdana,arial; 
color: black; 
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TR.reportFieldDataOdd 

{ 

background-color: #Iif( StructKeyExists{ 

SESSION.colors, "TR.reportFieldDataOdd" )/De{ StructFind( 

SESSION.colors,"TR.reportFieldDataOdd" ) ),De( *grey’ ) )#; 
font: 8pt tahoma,verdana,arial; 
color: black; 

} 

TD.reportTitle 

{ 

font: 12px tahoma,verdana,arial; 

color: #Iif( StructKeyExists( SESSION.colors,"TD.reportTitle" ),De{ 
StructFind( SESSION.colors,"TD.reportTitle" ) ),De( *000000’ ) )#; 
font-weight: bold; 

} 

TD.reportRowHeader 

{ 

font: 12px tahoma,verdana,arial; 

color: #Iif( StructKeyExists( SESSION.colors,"TD.reportRowHeader" ),De{ 
StructFindt SESSION.colors,"TD.reportRowHeader" ) ),De( ’000000’ ) )#; 
font-weight: bold; 

} 

TD.reportColumn 

{ 

font: 12px tahoma,verdana,arial; 

color: #Iif( StructKeyExists( SESSION.colors,"TD.reportColumn" ),De( 
StructFind( SESSION.colors,"TD.reportColumn" ) ),De( ’000000’ ) )#; 

} 

A.reportOptions:link 

{ 

color: #Iif( StructKeyExists( SESSION.colors,"A.reportOptions:link" 
),De( StructFind( SESSION.colors,"A.reportOptions:link” ) ),De( 

’ 000000 ’ ) )#; 
text-decoration: none; 
font-size: 8pt; 
font-weight: bold; 

} 

A. reportOptions:active 

{ 

color: #Iif( StructKeyExists( SESSION.colors,"A.reportOptions:active" 
),De( StructFind{ SESSION.colors,"A.reportOptions:active" ) ),De{ 
’ 000000 ’ ) )#; 
text-decoration: none; 
font-size: 8pt; 
font-weight: bold; 

} 

A.reportOptions:visited 

{ 
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color: #Iif( StructKeyExists{ SESSION.colors,"A.reportOptions:visited" 
),De( StructFind( SESSION.colors,"A.reportOptionsivisited" ) ), De{ 
' 000000 ' ) )#; 
text-decoration: none; 
font-size: 8pt; 
font-weight: bold; 

} 

A. reportOptions:hover 

{ 

color: #Iif( StructKeyExists( SESSION.colors,"A.reportOptions:hover" 
),De( StructFind( SESSION.colors,"A.reportOptions:hover" ) ),De( 
' 000000 ' ) )#; 
text-decoration: underline; 
font-size: 8pt; 

} 

/***********************************j^*^j,^^^^ 

END REPORT PROPERTIES 

****************************************^^^^ 

/******************************************* 

WIN TAB PROPERTIES 

****************************************^^^^ 

TABLE.winTab 

{ 

border-color: #Iif( StructKeyExists( SESSION.colors,"TABLE.winTab" 

),De( StructFind( SESSION.colors,"TABLE.winTab" ) ),De{ 'A8B0D8' ) )#; 
border-width: thin; 
border-style: solid; 

} 

TR.winTab 

{ 

background—color: #Iif( StructKeyExists( SESSION.colors,"TR.winTab" 

), De( StructFind( SESSION.colors,"TR.winTab" ) ),De( 'A8B0D8' ) )#; 
font: 8pt tahoma,verdana,arial; 
font-weight: bold; 

} 

TD.winTabSelected 

{ 

background-color: #Iif( StructKeyExists( 

SESSION.colors,"TD.winTabSelected" ),De( StructFind( 

SESSION.colors,"TD.winTabSelected" ) ),De( 'A8B0D8' ) )#; 
font: 8pt tahoma,Verdana,arial; 
font-weight: bold; 

} 

TD.winTabUnselected 

{ 

background-color: #Iif( StructKeyExists( 

SESSION.colors,"TD.winTabUnselected" ),De( StructFind( 

SESSION.colors,"TD.winTabUnselected" ) ),De( 'A 8 B 0 D 8 ' ) )#; 
font: 8pt tahoma,Verdana,arial; 
font-weight: bold; 

} 
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TD.winTabLabel 

{ 

background-color: #Iif{ StructKeyExists( 

SESSION.colors,"TD.winTabLabel” ),De( StructFind( 
SESSION.colors,"TD.winTabLabel" ) ),De( 'A8B0D8' ) )# 
font: 12px tahoma,verdana,arial; 
color: black; 
font-weight: bold; 

} 

TD.winTabField 

{ 

background-color: #Iif( StructKeyExists( 

SESSION.colors,"TD.winTabField" ),De( StructFind( 
SESSION.colors,"TD.winTabField" ) ), De( 'F7F7F7' ) )# 
font: 12px tahoma,verdana,arial; 
color: black; 

} 

SPAN.winTab 

{ 

font: lOpt Tahoma, Verdana, Arial; 

} 

/*****************Tlr*****'*'***:Ar*********Tlf***** 

END WIN TAB PROPERTIES 

.guickList 

{ 

background-color: FFFFF; 

font: 8pt Tahoma, Verdana, Arial; 

margin: 4px; 

} 

.stdTextBox 

{ 

font: 8pt Tahoma, Verdana, Arial; 
background-color; FFFFFF; 
border: Ipx solid black; 

} 

A.basic:link 

{ 

color: blue; 
text-decoration: none; 
font-size: 8pt; 
font-weight: bold; 

} 

A.basic:active 

{ 

color: blue; 
text-decoration: none; 
font-size: 8pt; 
font-weight: bold; 
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} 


A.basic:visited 

{ 

color: blue; 
text-decoration: none; 
font-size: 8pt; 
font-weight: bold; 

} 

A.basic:hover 

{ 

color: blue; 

text-decoration: underline; 
font-size: 8pt; 

} 

</CFOUTPUT> 


GETUSERINFORMATIONCFM 

<CFQUERY NAME="getUserInformation" 
DATASOURCE="#VARIABLES.gvDATASOURCE_USER#"> 

SELECT * 

FROM tblUserAccounts 

WHERE user_loginid = '#SESSION.loginid#' 
</CFQUERY> 

7. USER FILES 


MYACCOUNT.CFM 

<SPAN CLASS="winTab”> 

<CF_srHELPSUMMARY shortName="myAccountPage"> 
</SPAN> 

<CF_s rPAGEOPTIONS NAME="myAccount"> 

MYADDRESSBOOK.CFM 

<CFIF NOT IsDefined( "URL.user_id" )> 

<CFSET URL.user_id = #SESSION.user_id#> 
</CFIF> 


<CFPARAM NAME="URL.action" DEFAULT="View"> 

<CFSET mainFile = "main.cfm?a=myAccount&body=myAddressBook.cfm"> 
<CFSET mainTable = "tblMyAddressBook"> 

<CFSET idField = "myAddressBook_id"> 

<CFSET addTitle = "CREATE A NEW ADDRESS"> 
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<CFSET editTitle = "EDIT ADDRESS"> 

<CFSET useSource = "#VARIABLES.gvDATASOURCE_USER#"> 

<CFIF URL.action EQ "View"> 

<CF_srReportEngine 

ACTION="run" 

NAME="1is tMyAddre s sBook" 

INCLUDEOPTIONS="true" 

HEADERTYPE="List" 

SYSTEM_TOOLBAR="New" 

SYSTEM_TOOLBARLINKS="#YARIABLES.mainFile#&action=add" 

ADDWHERE="user_ID=#URL.user_ID#" 

> 

<CFELSEIF URL.action EQ "Add"> 

<CFSET title = "#VARIABLES.addTitle#"> 

<CFSET fonoAction = "tVARIABLES.mainFile#&action=saveNew"> 

<CFSET formName="fonnAdd"> 

<CFELSEIF URL.action EQ "Edit"> 

<CFSET title = "#VARIABLES.editTitle#"> 

<CFSET fomAction = "#VARIABLES.mainFile#&action=save"> 

<CFSET foniiName="formEdit"> 

<CFELSEIF URL.action EQ "saveNew"> 

<CFINSERT DATASOURCE="#VARIABLES.useSource#" 

TABLENAME="#VARIABLES.mainTable#"> 

<CFLOCATION URL="#VARIABLES.mainFile#"> 

<CFELSEIF URL.action EQ "save"> 

<CFUPDATE DATASOURCE="#VARIABLES.useSource#" 

TABLENAME="#VARIABLES.mainTable#"> 

<CFLOCATION URL="#VARIABLES.mainFile#"> 

<CFELSEIF URL.action EQ "delete"> 

<CFQUERY NAME="deleteInfo" DATASOURCE="#VARIABLES.useSource#"> 

DELETE 

FROM #VARIABLES.mainTable# 

WHERE #VARIABLES.idField# = #Evaluate( 'URL.' & VARIABLES.idField )# 
</CFQUERY> 

<CFLOCATION URL="#VARIABLES.mainFile#"> 

</CFIF> 

<CFIF URL.action NEQ "View"> 

<CFQUERY NAME="getRecordInfo" DATASOURCE="#VARIABLES.useSource#"> 


SELECT 
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FROM #VARIABLES.mainTable# 

WHERE #VARIABLES.idField# = <CFIF URL.action EQ "Edit">#Evaluate( 

'URL.' & VARIABLES.idField )#<CFELSE>-1</CFIF> 

</CFQUERY> 

<5-display appropriate header-> 

<CF_srWinTab 

TABS="#VARIABLES.title#" 

SYSTEM_TOOLBAR="Save,My Address Book" 

SYSTEM_TOOLBARLINKS=”j avascript:document.#VARIABLES.formName#.submit(), 
main.cfm?a=myAccount&body=myAddressBook.cfm&user id=#URL.user id#" 

> — - 

<TABLE BORDER=0 WIDTH=100%> 

<CFFORM ACTION="#VARIABLES.formAction#" NAME="#VARIABLES.formName#"> 
<CFOUTPUT> 

<INPUT TYPE="hidden" NAME="#VARIABLES.idField#" VALUE="#Evaluate( 
'getRecordInfo.' & VARIABLES.idField )#"> 

<INPUT TyPE="hidden" NAME="user_id" VALUE="#URL.user id#"> 

</CFOUTPUT> 

<TR> 

<TD> 

<SPAN CLASS="winTab"> 

<CF_srHELPSUMMARY shortName="myAddressBook"> 

</SPAN> 

<P> 

<TABLE BORDER=0 WIDTH=100%> 

<TR> 

<TD CLASS=”winTabLabel">&nbsp;CONTACT</TD> 

<TD CLASS="winTabField">&nbsp;</TD> 

</TR> 

<TR> 

<TD CLASS="winTabLabel">&nbsp;Last Name:</TD> 

<TD CLASS="winTabField"> 

<CFINPUT 

NAME="cLname" 

TYPE="text" 

VALUE="#getRecordInfo.cLname#" 

SIZE="30" 

MAXLENGTH="30" 

REQUIRED="yes" 

MESSAGE="A Last Name is required." 

> 

</TD> 

</TR> 

<TR> 

<TD CLASS="winTabLabel">&nbsp;First Name:</TD> 

<TD CLASS="winTabField"> 

<CFINPUT 

NAME="cFname" 

TYPE="text" 

VALUE="#getRecordInfo.cFname#" 

SIZE='’30" 

MAXLENGTH="20" 

REQUIRED="no" 


190 


> 

</TD> 

</TR> 

<TR> 

<TD CLiASS=”winTabLabel ”>&nbsp; Rank: </TD> 

<TD CLASS=”winTabField"> 

<CFINPUT 

NAME="cRank" 

TYPE="text” 

VALUE="#getRecordInfo.cRank#" 

SIZE="10" 

MAXLENGTH=”10” 

REQUIRED="no" 

> 

</TD> 

</TR> 

<TR> 

<TD CIiASS=”winTabLabel">&nbsp;Title:</TD> 

<TD CLASS=”winTabField”> 

<CFINPUT 

NAME=”cTitle" 

TYPE="text" 

VALUE=”#getRecordInfo,cTitle#” 

SIZE=”30" 

MAXLENGTH=”50" 

REQUIRED=”no" 

> 

</TD> 

</TR> 

<TR> 

<TD CIiASS="winTabLabel”>&nbsp;Organization:</TD> 
<TD CLASS="winTabField”> 

<CFINPUT 

NAME“"cOrganization" 

TYPE=”text” 

VALUE="#getRecordInfo•cOrganization#" 

SIZE=”30” 

MAXLENGTH="40" 

REQUIRED="no" 

> 

</TD> 

</TR> 

<TR> 

<TD CLASS="winTabLabel">&nbsp;Email Address:</TD> 
<TD CLASS=”winTabField"> 

<CFINPUT 

NAME= " cEiaa i 1 Addr e s s ” 

TYPE-”text" 

VALUE=”#getRecordInfo. cEmail Addr ess#" 

SIZE="30" 

MAXLENGTH=”75” 

REQUIRED=”no" 

> 

</TD> 

</TR> 

<TR> 

<TD CLASS-”winTabLabel”>&nbsp;Homepage:</TD> 
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<TD CLASS=”winTabField”> 

<CFINPUT 

NAME=”cHomepage" 

TYPE=”text" 

VALUE="#getRecordInfo•cHomepage#" 

SIZE="30" 

MAXLENGTH="75" 

REQUIRED=”no” 

> 

</TD> 

</TR> 

<TR> 

<TD>&nbsp;</TD> 

<TD>&nbsp;</TD> 

</TR> 

<TR> 

<TD CLASS=”winTabLabel">&nbsp;TELECOMKUNICATION</TD> 
<TD CLASS=”winTabField">&nbsp;</TD> 

</TR> 

<TR> 

<TD CLASS=”winTabLabel”>&nbsp;Phone:</TD> 

<TD CLASS="winTabField"> 

<CFINPUT 

NAME=”pPhone” 

TYPE=”t€xt” 

VALUE=”#getRecordInfo.pPhone#” 

SIZE=”30” 

MAXLENGTH=”30” 

REQUIRED=”no” 

> 

</TD> 

</TR> 

<TR> 

<TD CLASS=”winTabLabel”>&nbsp;Fax:</TD> 

<TD CLASS="winTabField"> 

<CFINPUT 

NAME=”pFax” 

TYPE="text" 

VALUE="#getRecordInfo.pFax#" 

SIZE="30" 

MAXLENGTH=”20" 

REQUIRED="no” 

> 

</TD> 

</TR> 

<TR> 

<TD CLASS=”winTabLabel">&nbsp;Cell Phone:</TD> 

<TD CLASS="winTabField"> 

<CFINPUT 

NAME=”pCe11Phone” 

TYPE=”text” 

YALUE="#getRecordInfo.pCellPhone #” 

SI2E="30" 

MAXLENGTH=”20" 

REQUIRED=”no" 

> 

</TD> 


192 



</TR> 

<TR> 

<TD CLASS="winTabLabel">&nbsp;Pager:</TD> 

<TD CLASS=”winTabField"> 

<CFINPUT 

NAME="pPager" 

TYPE="text" 

vaLUE="#getRecordInfo.pPager#" 

SIZE="30" 

MAXLENGTH="30" 

REQUIRED="no” 

> 

</TD> 

</TR> 

<TR> 

<TD>&nbsp;</TD> 

<TD>&nbsp;</TD> 

</TR> 

<TR> 

<TD CLASS=”winTabLabel">&nbsp;DETAILS</TD> 
<TD CLASS="winTabField">&nbsp;</TD> 

</TR> 

<TR> 

<TD CLASS="winTabLabel">&nbsp;Notes:</TD> 

<TD CLASS="winTabField">&nbsp;</TD> 

</TR> 

<TR> 

<TD CLASS="winTabField" C0LSPAN=2> 

<CFOUTPUT> 

<TEXTAREA COLS=40 ROWS=5 NAME="dNotes" 

WRAP="soft">#getRecordInfo.dNotes#</TEXTAREA> 

</CFOUTPUT> 

</TD> 

</TR> 

</TABLE> 

</TD> 

</TR> 

</CFFORM> 

</TABLE> 

</CF_srWinTab> 

</CFIF> 


MYBOOKMARKS.CFM 


<CFIF NOT IsDefined( "URL.user_id" )> 

<CFSET URL.user_id = #SESSION.user_id#> 

</CFIF> 

<CFPARAM NAME="XJRL.action" DEFAULT="View"> 

<CFSET mainFile = "inain.cfia?a=myAccount&body=myBookniarlcs.cfia" 
<CFSET mainTable = "tblMyBookmarks"> 

<CFSET idField = "myBookmark id"> 
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<CFSET addTitle = "CREATE A NEW BOOKMARK"> 

<CFSET editTitle = "EDIT BOOKMARK"> 

<CFSET useSource = "#VARIABLES.gvDATASOURCE_USER#"> 

<CFIF Mid( SESSION.access,VARIABLES.gvLEVEL_ADMIN,1 ) EQ 'X'> 

<CFQUERY NAME="getSuitimary" 

DATASOURCE="#VARIABLES.gvDATASOURCE_CONFIG#"> 

SELECT * 

FROM tblSummary 

WHERE shortNaiae = 'myBookmarks' 

</CFQUERY> 

</CFIF> 

<CFIF URL.action EQ "View"> 

<CF_srReportEngine 

ACTION="run" 

NAME="1is tMyBoo kmarks" 

INCLUDEOPTIONS="true" 

HEADERTYPE="List" 

SYSTEM_TOOLBAR="New#Iif{ Mid{ SESSION.access,VARIABLES.gvLEVEL_ADMIN,1 
) EQ 'X' AND getSummary.RecordCount EQ 0,De{ ’,Add Summary' ),De( 

',Edit Siammary' ) ) #" 

SYSTEM_TOOLBARLINKS="#VARIABLES.mainFile#&action=add#Iif( Mid( 

SESSION.ACCESS,VARIABLES.gvLEVEL_ADMIN,1 ) EQ 'X' AND 
getSummary.RecordCount EQ 0,De( 

' ,main.cfm?a=tools&body=adminListSummary.cfm&action=add' ),De( 

',main.cfm?a=tools&body=adminListSummary.cfm&action=edit&summary id=#ge 
tSummary.summary_id#' ) )#" ~ 

ADDWHERE="user_ID=#URL.user_ID#" 

> 

<CFELSEIF URL.action EQ "Add"> 

<CFSET title = "#VARIABLES.addTitle#"> 

<CFSET formAction = "#VARIABLES.mainFile#&action=saveNew"> 

<CFSET formName="formAdd"> 

<CFELSEIF URL.action EQ "Edit"> 

<CFSET title = "#VARIABLES.editTitle#"> 

<CFSET formAction = "#VARIABLES.mainFile#&action=save"> 

<CFSET formName="formEdit"> 

<CFELSEIF URL.action EQ "saveNew"> 

<CFINSERT DATASOURCE="#VARIABLES.useSource#" 

TABLENAME="#VARIABLES.mainTable#"> 

<CFLOCATION URL="#VARIABLES.mainFile#"> 

<CFELSEIF URL.action EQ "save"> 
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<CFUPDATE DATASOURCE=”#VARIABLES.useSource#" 

TABLENAME="#VARIABLES.mainTable#"> 

<CFLOCATION URL="#VARIABLES.mainFile#"> 

<CFELSEIF URL.action EQ "delete"> 

<CFQUERY NAME="deleteInfo" DATASOURCE="#VARIABLES.useSource#"> 
DELETE 

FROM #VARIABLES.mainTable# 

WHERE #VARIABLES.idField# = #Evaluate{ 'URL.' & VARIABLES.idField )# 
</CFQUERY> 

<CFLOCATION URL="#VARIABLES.mainFile#"> 

</CFIF> 


<CFIF URL.action NEQ "View"> 

<CFQUERY NAME="getRecordInfo" DATASOURCE="#VARIABLES.useSource#"> 
SELECT * 

FROM #VARIABLES.mainTable# 

WHERE #VARIABLES.idField# = <CFIF URL.action EQ "Edit">#Evaluate{ 

'URL.' & VARIABLES.idField )#<CFELSE>-1</CFIF> 

</CFQUERY> 

<!- display appropriate header -> 

<CF_srWinTab 
TABS="#VARIABLES.title#" 

SYSTEM_TOOLBAR="Save" 

SYSTEM_TOOLBARLINKS="j avascript:document.#VARIABLES.formName#.submit()" 
TOOLBAR="My Bookmarks" 

TOOLBARLINKS="main.cfm?a=myAccount&body=myBookmarks.cfm&user_id=#URL.us 
er id#" 


<TABLE BORDER=0 WIDTH=100%> 

<CFFORM ACTION="#VARIABLES.formAction#" NAME="#VARTABLES.formName#"> 
<CFOUTPUT> 

<INPUT TYPE="hidden" NAME="#VARIABLES.idField#" VALUE="#Evaluate{ 
'getRecordInfo.' & VARIABLES.idField )#"> 

<INPUT TYPE="hidden" NAME=''user_id" VALUE="#URL.user_id#"> 
</CFOUTPUT> 

<TR> 

<TD> 

<SPAN CLASS="winTab"> 

<CF_srHELPSUMMARY shortName="myBookmarks"> 

</SPAN> 

<P> 

<TABLE BORDER=0 WIDTH=100%> 

<TR> 

<TD CLASS="winTabLabel">&nbsp;Label:</TD> 

<TD CLASS="winTabField"> 

<CFINPUT 
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NAME="binLabel" 

TYPE="text" 

YALUE="#getRecordInfo.bmLabel#” 

SIZE="30" 

MAXLENGTH="20" 

REQUIRED="yes” 

MESSAGE="A Bookmark Label is required." 

> 

</TD> 

</TR> 

<TR> 

<TD CLASS="winTabLabel">&nbsp;Web Address:</TD> 

<TD CLASS="winTabField"> 

<CFINPUT 

NAME="bmURL" 

TYPE="text" 

VALUE="#getRecordInfo.bmURL#" 

SIZE="50" 

MAXLENGTH="75" 

REQUIRED="yes" 

MESSAGE="A Bookmark Web Address is required." 

> 

</TD> 

</TR> 

<TR> 

<TD CLASS="winTabLabel">&iibsp;Message:</TD> 

<TD CLASS="winTabField"> 

<CFINPUT 

NAME= ” binMe s s a ge " 

TYPE=”text" 

VALUE="#getRecordInfo.bmMessage#" 

SIZE="50" 

MAXLENGTH=”50" 

REQUIRED="no" 

> 

</TD> 

</TR> 

<TR> 

<TD CIiASS="winTabLabel">&nbsp;Open link where?</TD> 
<TD CLASS="winTabField"> 

<CFIF #getRecordInfo.newWindow# NEQ ""> 

<CFSET temp = #getRecordInfo.newWindow#> 

<CFELSE> 

<CFSET temp = 1> 

</CFIF> 

<CFINPUT TYPE="Radio" NAME="newWindow" 

VARIABLES.temp EQ 'l’,De( 'true' ),De( 

<CFINPUT TYPE="Radio" NAME="newWindow" 

VARIABLES.temp EQ '2',De( 'true' ),De{ 

<CFINPUT TYPE="Radio" NAME="newWindow" 

VARIABLES.temp EQ '3',De( 'true' ), De( 

Explorer 
</TD> 

</TR> 

</TABLE> 

</TD> 

</TR> 


VALUE="1" CHECKED="#Iif( 
'false' ) )#">New Window 
VALUE="2" CHECKED="#Iif( 
'false' ) )#">Current Window 
VALUE= " 3 " CHECKEr)= " # I i f ( 
'false' ) )#">Within Readiness 
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</CFFORM> 

</TABLE> 

</CF_srWinTab> 

</CFIF> 


MYCALENDAR.CFM 


<CFPARAM NAME="URL.cyear" 
<CFPARAM NAME="URL.cMonth" 
<CFPARAM NAME="URL.cDay" 


DEFAULT="#DateFonnat( 
DEFAULT="#DateFormat( 
DEFAULT="#DateFormat( 


Now(),'yyyy’ )#"> 
Now(),'iii' )#"> 
Now(),’d' )#"> 


<CFIF ( URL.cMonth EQ DatePart( 'm',Now() ) AND URL.cYear EQ DatePart( 
'yyyy'/NowO ) and URL.cDay EQ 0 )> 


<CFSET URL.cDay = #DateFormat( Now(),’d’ )#> 
</CFIF> 


<CFSET mainFile = "inain.cfm?a=niyAccount&body=myCalendar.cfm"> 

<!-Find the start day the month-> 

<CFSET start_day = DayOfWeek( CreateDate( 
"#URL.cYear#",”#URL.cMonth#", "1" ) )> 

<!-Find the total no of days in the month-> 

<CFSET total_days_in_month = DaysInMonth( CreateDate( 

"#URL.cYear#","#URL.cMonth#","1" ) )> 

<!-Find the end day of the month-> 

<CFSET end_day = DayOfWeek( CreateDate( 

"#URL.cYear#","#URL.cMonth#","#VARIABLES.total_days_in_month#"))> 

<CF_srWinTab 
TABS="My Calendar" 

SYSTEM_TOOLBAR="Previous Month,Next Month,Today,Add Event" 
SYSTEM_TOOLBARLINKS="#VARIABLES.mainFile#&cDay=0&cMonth=#Iif{ 
URL.cMonth EQ 1,12,URL.cMonth-1 )#&cYear=#Iif( URL.cMonth EQ 
1,URL.cYear-1,URL.cYear )#,#VARIABLES.mainFile#&cDay=0&cMonth=#Iif( 
URL.cMonth EQ 12,l,URL.cMonth+l )#&cYear=#Iif{ URL.cMonth EQ 
12,URL.cYear+1,URL.cYear )#,#VARIABLES.mainFile#,temp.cfm" 


<TABLE BORDER=0 WIDTH=100%> 

<TR> 

<TD> 

<SPAN CLASS="winTab"> 

<CF_srHELPSUMMARY shortName="myCalander"> 
</SPAN> 

<P> 


<TABLE BORDER=0 WIDTH=100%> 
<TR> 
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<TD CLASS—"winTabField" ALIGN="center”> 

<TABLE CELLSPACING=0 CELLPADDING=0 WIDTH=600 BORDER=0> 

<TR> 

<TD ALIGN=LEFT BGCOLOR=#FFFFFF> 

<TABLE CELLPADDING=2 WIDTH="100%" BORDER=0> 

<TR> 

<CFOUTPUT> 

<TD CLASS="reportTitle" ALIGN="center" WIDTH=”100%">#DateForinat( 
CreateDate ( URL.cYear,URL.cMonth, 1 ), "mminiti yyyy" )#</TD> 

</CFOUTPUT> 

</TR> 

</TABLE> 

</TD> 

</TR> 

</TABLE> 

<TABLE CELLSPACING=0 CELLPADDING=0 WIDTH=600 BORDER=0> 

<TR> 

<TD> 

<TABLE CELLSPACING=2 CELLPADDING=0 WIDTH="100%" BGCOLOR=#000000 
BORDER=0> 

<TR ALIGN=MIDDLE BGCOLOR=#CCCCFF> 

<TD CLASS="reportTitle" WIDTH=100>Sunday</TD> 

<TD CLASS=”reportTitle" WIDTH=100>Monday</TD> 

<TD CLASS="reportTitle" WIDTH=100>Tuesday</TD> 

<TD CLASS="reportTitle” WIDTH=100>Wednesday</TD> 

<TD CLASS="reportTitle" WIDTH=100>Thursday</TD> 

<TD CLASS="reportTitle" WIDTH=100>Friday</TD> 

<TD CLASS="reportTitle” WIDTH=100>Saturday</TD> 

</TR> 

<CFSET week_day = start day> 

<CFSET display_day = 1> 

<CFLOOP CONDITION="#VARIABLES.display_day# LTE 
#VARIABLES. total_days_in_iaonth#"> 

<TR> 

<CFLOOP CONDITION="#VARIABLES.week_day# LTE 7"> 

<CFLOOP CONDITION="#VARIABLES.start_day# NEQ 1"> 

<TD VALIGN=TOP WIDTH=100 BGCOLOR=#DDDDDD HEIGHT=75> 

<TABLE CELLSPACING=0 CELLPADDING=2 WIDTH=''100%" BORDER=0> 

<TR> 

<TD><FONT FACE=ARIAL,VERDANA,HELVETICA COLOR=#000000>&nbsp;</FONT></TD> 
</TR> 

<TR> 

<TD CLASS="reportColuitin" ALIGN=”right">&nbsp;</TD> 

</TR> 

<TR> 

<TD CLASS=”reportColumn" ALIGN="right”>&nbsp;</TD> 

</TR> 

<TR> 

<TD CLASS=”reportColuinn" ALIGN="right">&nbsp;</TD> 

</TR> 

</TABLE> 

</TD> 
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<CFSET VARIABLES.start_day = VARIABLES.start_day - 1> 

</CFLOOP> 

<CFIF VARIABLES.display_day LTE VARIABLES.total_days_in_itionth> 
<CFOUTPUT> 

<TD VALIGN=TOP WIDTH=100 BGCOLOR="#Iif( display_day EQ URL.cDay,De( 
'FFFFCC ),De( 'FFFFFF' ) )#" HEIGHT=75> 

</CFOUTPUT> 

<TABLE CELLSPACING=0 CELLPADDING=2 WIDTH="100%" BORDER=0> 

<TR> 

<CFOUTPUT> 

<TD CLASS="reportTitle"><A HREF="”>#VARIABLES.display_day#</A></TD> 
</CFOUTPUT> 

</TR> 

<TR> 

<TD CLASS="reportColumn" ALIGN="right">&nbsp;</TD> 

</TR> 

<TR> 

<TD CLASS="reportColumn" ALIGN="right">&nbsp;</TD> 

</TR> 

<TR> 

<TD CLASS="reportColumn" ALIGN="right">&nbsp;</TD> 

</TR> 

</TABLE> 

</TD> 

<CFELSE> 

<CFLOOP CONDITION='’#VARIABLES.end_day# NEQ 7'’> 

<TD VALIGN=TOP WIDTH=100 BGCOLOR=#DDDDDD HEIGHT=75> 

<TABLE CELLSPACING=0 CELLPADDING=2 WIDTH="100%" BORDER=0> 

<TR> 

<TD><FONT FACE=ARIAL,VERDANA,HELVETICA COLOR=#000000>&nbsp;</FONT></TD> 
</TR> 

<TR> 

<TD CLASS="reportColumn" ALIGN="right">&nbsp;</TD> 

</TR> 

<TR> 

<TD CLASS=”reportColman" ALIGN="right”>&nbsp;</TD> 

</TR> 

<TR> 

<TD CLASS="reportColuinn" ALIGN="right”>4nbsp;</TD> 

</TR> 

</TABLE> 

</TD> 

<CFSET VARIABLES.end_day = VARIABLES.end_day + 1> 

</CFLOOP> 

</CFIF> 

<CFSET week_day = week_day + 1> 

<CFSET display_day = display_day + 1> 

</CFLOOP> 

</TR> 
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<CFSET week_day = 1> 
</CFLOOP> 

</TABLE> 

</TD> 

</TR> 

</TABLE> 

</TD> 

</TR> 

</TABLE> 

</TD> 

</TR> 

</TABLE> 

</CF srWinTab> 


MYCOLORS.CFM 

<CFIF NOT ISDEFINED( "URL.user_id" )> 

<CFSET URL.USER_ID = #SESSION.USER_ID#> 

</CFIF> 

<CFPARAM NAME=”URL.action" DEFAULT="View”> 

<CFPARAM NAME="URL.status" DEFAULT="preview"> 

<CFSET MAINFILE = "main.cfm?a=myAccount&body=myColors.cfm"> 

<CFSET TITLE="MY COLORS"> 

<CFSET USESOURCE = "#VARIABLES.gvDATASOURCE USER#"> 

<SCRIPT LANAGUAGE="javascript"> 

function onSubmit( actionType ) 

{ 

<CFOUTPUT> 

if ( actionType == "saveas" ) 

{ 

var styleName = prompt( "Please provide a Color Style name:","" ); 
if ( StyleName != null && styleName != "") 

{ 

document.viewColors,action = "#VARIABLES.mainFile#&action=" + 
actionType + "&styleName=" + styleName; 
document.viewColors.submit(); 

} 

} 

else 

{ 

document.viewColors.action = "iVARIABLES.mainFile#&action=" + 
actionType; 

document.viewColors.submit{); 

} 

</CFOUTPUT> 

} 

</SCRIPT> 
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<CFIF URL.ACTION EQ "restore"> 


<CFIF ISDEFINED( "SESSION.currentColors" )> 

<CFSET SESSION.COLORS = #STRUCTCOPY( SESSION.CURRENTCOLORS )#> 

<CFSET STRUCTDELETE(SESSION, "currentColors")> 

</CFIF> 

<CFLOCATION URL="#VARIABLES.mainFile#"> 

<CFELSEIF URL.ACTION EQ "preview"> 

<!- protect current colors -> 

<CFSET SESSION.CURRENTCOLORS = #STRUCTCOPY( SESSION.COLORS )#> 

<CFQUERY NAME="getColorElements" 

DATASOURCE="#VARIABLES.gvDATASOURCE_CONFIG#"> 

SELECT ceValueName,ceCSSName,celD 
FROM tblColorElements 

</CFQUERY> 

<!- declare temporary color structure -> 

<CFSET TEMPCOLORS = STRUCTNEW()> 

<!- populate structure with color data -> 

<CFLOOP QUERY="getColorElements"> 

<CFSET TEMP = #STRUCTINSERT( VARIABLES.TEMPCOLORS,CECSSNAME,EVALUATE( 
"FORM." & celD ) )#> 

</CFLOOP> 

<CFSET SESSION.COLORS = #STRUCTCOPY( VARIABLES.TEMPCOLORS )#> 
<CFLOCATION URL="#VARIABLES.mainFile#&status=restore"> 

<CFELSEIF URL.ACTION EQ "selectNew"> 

<CFSET STRUCTDELETE(SESSION, "colors")> 

<CFSET SESSION.DESKTOP = "#FORM.chooseStyle#"> 

<CF_SETUSERINFORMATION USER="#SESSION.loginID#" FIELDS="desktop" 
VALUES="#FORM.chooseStyle#"> 

<CFLOCATION URL="#VARIABLES.mainFile#"> 

<CFELSEIF URL.ACTION EQ "saveas"> 

<CFQUERY NAME="getColorElements" 

DATASOURCE="#VARIABLES.gvDATASOURCE_CONFIG#"> 

SELECT ceValueName,ceCSSName,celD 
FROM tblColorElements 

</CFQUERY> 

<!- declare temporary color structure -> 

<CFSET TEMPCOLORS = STRUCTNEW()> 

<!- populate structure with color data -> 
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<CFLOOP QUERY="getColorElements"> 

<CFSET TEMP = #STRUCTINSERT( VARIABLES.TEMPCOLORS,CECSSNAME,EVALUATE( 
"FORM." & celD ) )#> 

</CFLOOP> 

<!- open desktop.cfg file and convert back to CFM -> 

<CFLOCK TIMEOUT="60"> 

<CFFILE 

ACTION="read" 

FILE="#GetDirectoryFromPath( GetTemplatePath() )#desktop.cfg" 
VARIABLE="DataPacket" 

> 

</CFLOCK> 

<CFWDDX 

INPUT="#DataPacket#" 

OUTPUT="myColors" 

ACTION="WDDX2CFML" 

> 

<CFSET TEMP = ARRAYAPPEND( MYCOLORS,ARRAYNEW(1) )> 

<CFSET MYCOLORS[#ARRAYLEN(MYCOLORS)#][1] = "#URL.styleName#"> 

<CFSET MYCOLORS[#ARRAYLEN(MYCOLORS)#][2] = #TEMPCOLORS#> 

<CFWDDX 

INPUT="#myColors#" 

OUTPUT="NewPacket" 

ACTION="CEML2WDDX" 

> 

<CFLOCK TIMEOUT="60"> 

<CFFILE 

ACTION="write" 

FILE="#GetDirectoryFromPath{ GetTemplatePath() )#desktop.cfg" 
OUTPUT="#NewPacket#" 

> 

</CFLOCK> 

<CFSET SESSION.COLORS = iSTRUCTCOPY( VARIABLES.TEMPCOLORS )#> 

<CFSET SESSION.DESKTOP = "#URL.styleName#"> 

<CFSET STRUCTDELETE(SESSION, "currentColors")> 

<CF_SETUSERINFORMATION USER="#SESSION.loginID#" FIELDS="desktop" 
VALUES="#URL.styleName#"> 

kCFLOCATION URL="#VARIABLES.mainFile#"> 

<CFELSEIF URL.ACTION EQ "save"> 

<CFQUERY NAME="getColorElements" 

DATASOURCE="#VARIABLES.gvDATASOURCE_CONFIG#"> 

SELECT ceValueName, ceCSSName, celD 
FROM tblColorElements 

</CFQUERY> 

<!- declare temporary color structure -> 

<CFSET TEMPCOLORS = STRUCTNEW()> 
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<!- populate structure with color data -> 

<CFLOOP QUERY="getColorElements*'> 

<CFSET TEMP = #STRUCTINSERT( VARIABLES.TEMPCOLORS,CECSSNAME,EVALUATE( 
"FORM." & celD) )#> 

</CFLOOP> 

<!- open desktop.cfg file and convert back to CFM -> 

<CFLOCK TIMEOUT="60"> 

<CFFILE 

ACTION="read" 

FILE="#GetDirectoryFromPath( GetTemplatePath() )idesktop.cfg" 
VARIABLE="DataPacket" 

> 

</CFLOCK> 

<CFWDDX 

INPUT="#DataPacket#" 

OUTPUT="inyColors" 

ACTI0N="WDDX2CFML" 

> 

<CFLOOP INDEX="counter" FR0M="1" TO="#ArrayLen( myColors )#"> 

<CFIF MYCOLORS[#COUNTER#][1] EQ "#FORM.chooseStyle#"> 

<CFSET MYCOLORS[#COUNTER#][2] = #STRUCTCOPY( VARIABLES.TEMPCOLORS )#> 
<CFBREAK> 

</CFIF> 

</CFLOOP> 

<CFWDDX 

INPUT="#myColors#" 

OUTPUT="NewPacket" 

ACTION="CFML2WDDX" 

> 

<CFLOCK TIMEOUT="60"> 

<CFFILE 

ACTION="write" 

FILE="#GetDirectoryFromPath{ GetTemplatePath() )#desktop.cfg" 
OUTPUT="#NewPacket#" 

> 

</CFLOCK> 

<CFSET SESSION.COLORS = #STRUCTCOPY( VARIABLES.TEMPCOLORS )#> 

<CFSET STRUCTDELETE(SESSION, "currentColors")> 

<CFLOCATION URL="#VARIABLES.mainFile#"> 

<CFELSEIF URL.ACTION EQ "delete"> 

<CFIF #FORM.CHOOSESTYLE# EQ "Default"> 

<CFLOCATION URL="#VARIABLES.mainFile#"> 

</CFIF> 

<!- open desktop.cfg file and convert back to CFM -> 

<CFLOCK TIMEOUT="60"> 


203 


<CFFILE 

ACTION="read" 

FILE=’’#GetDirectoryFromPath( GetTemplatePath() ) #desktop.cfa" 
VARIABLE="DataPacket" 

> 

</CFLOCK> 

<CFWDDX 

INPUT="#DataPacket#” 

OUTPUT="niyColors" 

ACTION="WDDX2CFML" 


<CFLOOP INDEX="counter" FR0M=”1" TO="#ArrayLen( myColors )#"> 

<CFIF MYCOLORS[#COUNTER#][1] EQ "#FORM.chooseStyle#"> 

<CFSET TEMP = #ARRAYDELETEAT{ MYCOLORS, COUNTER )#> 

<CFBREAK> 

</CFIF> 

</CFLOOP> 

<CFWDDX 

INPUT=”#myCo1ors #” 

OUTPUT^"NewPacket” 

ACT I ON= " CraL2 WDDX ” 

> 

<CFLOCK TIMEOUT="60"> 

<CFFILE 

ACTION-’Vrite" 

FILE="#GetDirectoryFromPath{ GetTemplatePath() )#desktop.cfa" 
OUTPUT="#NewPacket#" 

> 

</CFLOCK> 

<CFSET STRUCTDELETE(SESSION, "colors")> 

<CF_SETUSERINFORMATION USER="#SESSION.loginID#" FIELDS="desktop" 
VAlUES="default"> 

<CFSET SESSION.DESKTOP = "default"> 

<CFLOCATION URL="#VARIABLES.mainFile#"> 

<CFELSEIF URL.ACTION EQ "View"> 

<CFQUERY NAME="getColorElements" 

DATASOURCE="#VARIABLES.gvDATASOURCE_CONFIG#"> 

SELECT cgTitle,ceLabel,celD,ceValueName,ceCSSName,ceDefaultValue 
FROM tblColorGroups INNER JOIN (tblColorElements INNER JOIN 
tblLinkColorToGroup ON tblColorElements.colorElements ID = 
tblLinkColorToGroup.ColorlD) ON tblColorGroups.colorGroup ID = 
tblLinkColorToGroup.ColorGroupID 
ORDER BY cgTitle,ceLabel 

</CFQUERY> 


<CFQUERY NAME="getColors" DATASOURCE="#VARIABLES.gvDATASOURCE_CONFIG# 
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SELECT * 

FROM tblColors 
ORDER BY color 

</CFQUERY> 

<CFSET FORMACTION = "#VARIABLES.mainFile#”> 

<CFSET FORMNAME = ”viewColors”> 

<1-open desktop-cfg file and convert back to CFM -> 

<CFLOCK TIMEOUT=”60”> 

<CFFILE 

ACTION="read” 

FILE=”#GetDirectoryFromPath( GetTemplatePath() )#desktop.cfg” 
VARIABLE="DataPacket" 

> 

</CFLOCK> 

<CFWDDX 

INPUT=”#DataPacket#" 

OUTPUT=»myColors” 

ACTION=”WDDX2 C FML” 

> 

<STYLE TYPE=”text/css”> 

SELECT.list 

{ 

background-color: ffffff; 

font: 8pt Tahoma, Verdana, Arial; 

} 

</STYLE> 

<SCRIPT LANGUAGE=”JAVASCRIPT”> 

var lastShown = null; 

var elementWithFocus; 

function updateElement{ elementID ) 

{ 

elementWithFocus = elementID; 

} 

function updateColors( newColor ) 

{ 

if ( elementWithFocus 1= null ) 

{ 

tempColor = eval( elementWithFocus ); 
tempColor.style.backgroundColor = newColor; 

tempValue = eval( "document.viewColors.” + elementWithFocus ); 
tempValue.value = newColor.substr(1); 

} 

} 

function showSelection( element ) 

{ 
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with (dociment.<CFOUTPUT>#VARIABLES.formName#</CFOUTPUT>) 

styleElement = eval( element ); 

if (lastShown == null) 
lastShown = styleElement; 
else 
{ 

//lastShown.style.visibility = "hidden"; 
lastShown.style.display = "none"; 
lastShown = styleElement; 

} 

//styleElement.style.visibility = "visible"; 

StyleElement.style.display = ""; 

} 

} 

</SCRIPT> 

<!- display appropriate header -> 

<CF_srWinTab 

TABS="myInformation,mySecurity,myColors,myToolbar,myPanel" 

TABSELECTED="3" 

TABURL="main.cfm?a=myAccount&body=myInformation.cfm&user_id=#URL.user i 

d#,main.cfm?a=myAccount&body=mySecurity.cfm&user_id=#URL.user_id#,main. 
cfm?a=myAccount&body=myColors.cfm&user_id=#URL.user_id#,main.cfm?a=myAc 

count&body=myToolbar.cfm&user_id=#URL.user_id#,main.cfm?a=myAccount&bod 
y=myPanel.cfm&user_id=#URL.user_id#" 

SYSTEM_TOOLBAR—"^^lif { URL.status EQ 'preview'^De ( 'Preview' )/De( 
'Restore' ) )#,#Iif( URL.status EQ 'preview',De( 'Delete' ),De( '' ) 

)#,Save As...,Save" 

SYSTEM_TOOLBARLINKS="#Iif( URL.status EQ 'preview',De( 
'javascript;onSubmit( "preview" )' ),De( ' javascript ronSubmit ( 
"restore" )' ) )#,#Iif( URL. status EQ 'preview',De ( 
'javascript:onSubmit( "delete" )' ),De( " ) )#, javascript ronSubmit ( 
'saveas' ),javascriptronSubmit( 'save' )" 

> 

<TABLE BORDER=0 WIDTH=100%> 

<CFFORM ACTION="#VARIABLES.formAction#" NAME="#VARIABLES.formName#"> 
<TR> 

<TD> 

<SPAN CLASS="winTab"> 

<CF_srHELPSUMMARY SHORTNAME="myColors"> 

</SPAN> 

<P> 

<TABLE BORDER=0 WIDTH=100%> 

<TR> 

<TD CLASS="winTabLabel" WIDTH=40%>&nbsp;CHOOSE STYLES:</TD> 

<TD CLASS="winTabField">&nbsp; 

<SELECT CLASS="list" NAME="chooseStyle" SIZE="1" onCHANGE="onSubmit{ 
'selectNew' )"> 

<CFLOOP INDEX="counter" FR0M="1" TO="#ArrayLen( myColors )#"> 

<CFOUTPUT> 
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<OPTION VM,UE="#VARIABLES.myColors[counter][1]#" #IIF( 
VARIABLES.MYCOLORS[COUNTER][1] EQ SESSION.DESKTOP,DE( 'SELECTED' ),DE( 
'' ) )#>#VARIABLES.myColors[counter][1]# 

</CFOUTPUT> 

</CFLOOP> 

</SELECT> 

</TD> 

</TR> 

<TR> 

<TD ALIGN="center" WIDTH=40%>&]ibsp;</TD> 

<TD ALIGN="center">&nbsp;</TD> 

</TR> 

<TR> 

<TD CLASS="winTabLabel" ALIGN="center" WIDTH=40%>&nbsp;COLOR 
OBJECTS</TD> 

<TD CLASS="winTabLabel" ALIGN="center">&nbsp;PROPERTIES</TD> 

</TR> 

<TR> 

<TD CLASS="winTabField" WIDTH=40% ALIGN=''center'' VALIGN="top''> 

<SELECT NAME="ColorGroups" SIZE=''10" ONCHANGE="showSelection( 
this.value )"> 

</SELECT> 

</TD> 

<TD CLASS="winTabField" VALIGN="top" ALIGN="left''> 

<CENTER> 

<BR> 

<B>Color Picker:</B>&nbsp; 

<SELECT CLASS=”list" NAME="colorPicker" SIZE=''l" 

ONCHANGE="updateColors(this.value)"> 

<CFOUTPUT QUERY=’'getColors"> 

<OPTION STYLE="background: #color_code#" VMiUE="#color_code#">#color# 
</CFOUTPUT> 

</SELECT> 

<HR CLASS='’Standard" SIZE=1 WIDTH=75%> 

</CENTER> 

<CFOUTPUT QUERY="getColorElements" GROUP="cgTitle"> 

<SCRIPT LANAGUAGE="javascript"> 

with (document.#VARIABLES.formName#) 

[ 

NewOpt = new Option; 

NewOpt.value = "#cgTitle#"; 

NewOpt.text = "#cgTitle#"; 

ColorGroups.options[ColorGroups.options.length] = NewOpt; 

} 

</SCRIPT> 

<DIV ID="#cgTitle#" STYLE="display: none;"> 

<TABLE BORDER=0 WIDTH=100%> <!- ID='’#cgTitle#" STYLE="visibility: 

hidden;"-> 

<CFOUTPUT> 

<TR> 
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<TD CLASS="winTabField" WIDTH=5% ALIGN="center" 
VALIGN="middle">&nbsp;<CFINPUT TYPE="radio" NAME="elementName" 
VALUE="#ceID#" ONCLICK="updateElement( this.value );"></TD> 

<TD CLASS="winTabField" WIDTH=75%>&nbsp;#ceLabel#:</TD> 

<TD ID="#ceID#" WIDTH=20% STYLE="background-color: #Iif{ 
StructKeyExists( SESSION.colors,ceCSSName ),De( StructFind{ 

SESSION.colors,ceCSSName ) ),De( ceDefaultValue ) )#”></TD> 

<INPUT TYPE="hidden" NAME="#ceID#" VALUE=”#Iif( StructKeyExists( 
SESSION.colors,ceCSSName ),De( StructFind( SESSION.colors,ceCSSName ) 
),De( ceDefaultValue ) )#”> 

</TR> 

</CFOUTPUT> 

</TABLE> 

</DIV> 

</CFOUTPUT> 

</TD> 

</TR> 

</TABLE> 

</TD> 

</TR> 

</CFFORM> 

</TABLE> 

</CF_srWinTab> 

</CFIF> 


MYEMAIL.CFM 

<CFIF NOT IsDefined( "URL.user id" )> 
<CFSET URL.user_id = #SESSION.user_id#> 
</CFIF> 


<CFPARRM NAME="URL.action" DEFAULT="List"> 

<CFSET mainFile = "main.cfm?a=myAccount&body=myEmail.cfm"> 
<CFIF IsDefined( "URL.myEmailTrash_id" )> 

<CFSET VARIABLES.idField = "myEmailTrash_id"> 

<CFSET VARIABLES.mainTable = "tblMyEmailTrash"> 

<CFELSE> 

<CFSET mainTable = "tblMyEmail"> 

<CFSET idField = "myEmail_id"> 

</CFIF> 

<CFSET useSource = "#VARIABLES.gvDATASOURCE_USER#"> 

<CFIF Mid( SESSION. access, VARIABLES.gvLEVEL_ADMIN, 1 ) EQ 'X'> 
<CFQUERY NAME="getSiammary" 

DATASOURCE=" #VARIABLES. gvDAT7^0URCE_C0NFIG#" > 

SELECT * 

FROM tblSumnmary 

WHERE shortName = 'myEmail' 
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</CFQUERY> 

</CFIF> 

<CFIF URL.action EQ ”List"> 

<CF_srReportEngine 

ACTION="run" 

NAME= ” 1 i s tMyEmai 1 ” 

INCLUDEOPTIONS=”true" 

HEADERTYPE="List” 

SYSTEM_TOOLBAR-"Get Mail,Compose Mail,Sent Mail, Deleted Mail” 
SYSTEM_TOOLBARLINKS="#VARIABLES.mainFile#&action=getMail, #VARIABLES .mai 
nFile#&action=composeMail,#VARIABLES.mainFile#&action=sentMail,#VARIABL 
ES.mainFile#&action=deletedMail” 

ADDWHERE="us er_ID= #URL.us er_ID#" 

> 

<CFELSEIF URL.action EQ ,"deletedMail”> 

<CF_srReportEngine 

ACTION=”run" 

NAME-"deletedMail" 

INCLUDEOPTIONS=”t rue" 

HEADERTYPE-"List” 

SYSTEM_TOOLBAR=”inBox,Compose Mail,Sent Mail” 

SYSTEM_TOOLBARLINKS="#VARIABLES.mainFile#,#VARIABLES.mainFile#&action=c 
omposeMail,#VARIABLES.mainFile#&action=sentMail” 

ADDWHERE="user_ID=#URL.user_ID#" 

> 

<CFELSEIF URL.action EQ "getMail”> 

<CFQUERY NAME=”getEmailSetup" 

DATASOURCE-"#VARIABLES. gvDATASOURCE_USER#”> 

SELECT * 

FROM tbIMyEmai1S e tup 
WHERE user_id = #URL.user_id# 

AND myEmailSetup_ID = 1 

</CFQUERY> 

<CFPOP 

NAME=”getMail" 

ACTION=”GETALL" 

SERVER=”#getEmailSetup.popAddress#" 

PORT="#getEmailSetup.popAddressPort#” 

USERNAME-”#getEmailSetup.accountName#" 

PASSWORD=”#getEmailSetup.accountPassword#” 

TIMEOUT=”#getEmailSetup.timeout#” 

ATTACHMENTPATH=”#GetDirectoryFromPath( GetTemplatePath() )#” 

> 

<CFLOOP QUERY=”getMail”> 
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<CFQUERY NAME="insertMail" DATASOURCE="#VARIABLES.gvDATASOURCE USER#"> 


INSERT INTO tblMyEmail 

(myEmailSetup_id,user_icl,emailTo,emailFrom,emailSubject,emailReplyTo,em 
ailNuiriber, emailDate, emailCC, emailAttachments, emailAttachFiles, emailMess 
age) 

VALUES 

' ’ #replyTo# -, #messageNuinber 

#/ #date# , #cc# , #attachinents#','#attachmentfiles#','#body#' ) 

</CFQUERY> 

</CFLOOP> 

<CFLOCATION URL=”#VARIABLES.mainFile#"> 


<CFELSEIF URL.action EQ "delete"> 


<CFTRANSACTION> 

<CFQUERY NAME="moveToTrash" DATASOURCE="#VARIABLES.useSource#"> 

INSERT INTO tblMyEmailTrash 

(user_id,emailTo,emailFrom,emailSubject,emailReplyTo,emailNumber,emailD 

ate,emailCC,emailAttachments,emailAttachFiles,emailMessage) 

SELECT 

user_id,emailTo,emailFrom,emailSubject,emailReplyTo,emailNumber,emailDa 

te,emailCC,emailAttachments,emailAttachFiles,emailMessaae 

FROM tblMyEmail ^ 

WHERE #VARIABLES.idField# = #Evaluate( 'URL.' & VARIABLES.idField )# 

</CFQUERY> 

<CFQUERY NAME="deleteInfo" DATASOURCE="#VARIABLES.useSource#"> 

DELETE 

FROM #VARIABLES.mainTable# 

WHERE #VARIABLES.idField# = #Evaluate( 'URL.' & VARIABLES.idField )# 

</CFQUERY> 

</CFTRANSACTION> 

<CFLOCATION URL="#VARIABLES.mainFile#"> 

<CFELSEIF URL.action EQ "remove"> 

<CFQUERY NAME="deleteInfo" DATASOURCE="#VARIABLES.useSource#''> 

DELETE 

FROM #VARIABLES.mainTable# 

WHERE #VARIABLES.idField# = #Evaluate( 'URL.' & VARIABLES.idField )# 
</CFQUERY> 

<CFLOCATION URL="#VARIABLES.mainFile#&action=deletedMail"> 

<CFELSEIF URL.action EQ "View"> 

<CFSET title = "View Message''> 

<CFQUERY NAME="getRecordInfo" DATASOURCE="#VARIABLES.useSource#"> 
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SELECT * 

FROM #VARIABLES.mainTable# 

WHERE #VARIABLES.idField# = #Evaluate( 'URL.' & VARIABLES.idField )# 
</CFQUERY> 

<1 -display appropriate header-> 

<CF_srWinTab 
TABS="#VARIABLES.title#" 

SYSTEM_TOOLBAR="inBox,#Iif( IsDefined( 'URL.myEmailTrash_id' ),De( 
'Deleted Mail,' ),De( 'Reply,Forward,' ) )##Iif( IsDefined{ 
'URL.niyEmailTrash_id' ),De( 'Remove' ),De( 'Delete' ) )#,Compose" 
SYSTEM_TOOLBARLINKS="#VARIABLES.mainFile#, #Iif( IsDefined( 
'URL.myEmailTrash_id' ),De( VARIABLES.mainFile & '&action=deletedMail,' 
),De( VARIABLES.mainFile & '&action=reply,' & VARIABLES.mainFile & 

'&action=forward,' ) )##VARIABLES.mainFile#&action=#Iif( IsDefined( 
'URL.myEmailTrash_id' ),De{ 'remove' ),De( 'delete' ) 

)#,#VARIABLES.mainFile#&action=composeMail" 

SYSTEM_ADDID="#VARIABLES.idField#=#Evaluate( 'URL.' & VARIABLES.idField 
) #" 

TOOLBAR="Previous,Next" 

TOOLBARLINKS="temp.cfm,temp.cfm" 

> 

<TABLE BORDER=0 WIDTH=100%> 

<TR> 

<TD> 

<TABLE BORDER=0 WIDTH=100%> 

<TR> 

<TD CLASS="winTabField" VALIGN=”top" COLSPAN=2> 

<CFOUTPUT> 

<TABLE BORDER=0 WIDTH=100% CELLSPACING=0 CELLPADDING=2> 

<TR VALIGN="top"> 

<TD CLASS="reportTitle" ALIGN="right">Si;ibject:</TD> 

<TD CLASS="winTabField">#HTMLEditFormat{ getRecordInfo.emailSubject 
)#</TD> 

<TD R0WSPAN="2" ALIGN="right”><IMG 

SRC="#VARIABLES.gvIMAGE_DIRECTORY#re_stamp.gif" BORDER=0></TD> 

</TR> 

<TR VALIGN="top"> 

<TD CLASS="reportTitle" ALIGN="right">Date:</TD> 

<TD CLASS="winTabField">#getRecordInfo.emailDate#</TD> 

</TR> 

<TR VALIGN="top"> 

<TD CLASS="reportTitle" ALIGN="right">From:</TD> 

<TD CLASS="winTabField" COLSPAN=2>#HTMLEditFormat( 
getRecordlnfo.emailFrom )#</TD> 

</TR> 

<TR VALIGN="top"> 

<TD CLASS="reportTitle" ALIGN="right">To:</TD> 

<TD CLASS="winTabField" COLSPAN=2>#HTMLEditFormat( 
getRecordInfo.emailTo )#</TD> 

</TR> 

<TR VALIGN="top"> 
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<TD CLASS="reportTitle" ALIGN="right">&nbsp;</TD> 

<TD CLASS="winTabField" C0LSPAN=2><BR><CF_srLINKFINDER 
DATA="#getRecordInfo.emailMessage#"></TD> 

</TR> 

</TABLE> 

</CFOUTPUT> 

</TD> 

</TR> 

</TABLE> 

</TD> 

</TR> 

</TABLE> 

</CF_srWinTab> 

</CFIF> 


MYEMAILSETUP.CFM 

<CFIF NOT IsDefined( "URL.user_id" )> 
<CFSET URL.user_id = #SESSION.user_id#> 
</CFIF> 


<CFPARAM NAME="URL.action" DEFAULT="View"> 

<CFSET mainFile = "main.cfm?a=myAccount&body=myEmailsetup.cfm" 
<CFSET mainTable = "tblmyEmailSetup"> 

<CFSET idField = "myEmailSetup id"> 

<CFSET addTitle = "CREATE A NEW EMAIL ACCOUNT"> 

<CFSET editTitle = "EDIT EMAIL ACCOUNT"> 

<CFSET useSource = "#VARIABLES.gvDATASOURCE_USER#"> 

<CFIF URL.action EQ "View"> 

<CF_srReportEngine 

ACTION="run" 

NAME="1is tMyEmailAccount s" 

INCLUDEOPTIONS="true" 

HEADERTYPE="List" 

SYSTEM_TOOLBAR="New" 

SYSTEM_TOOLBARLINKS="#VARIABLES.mainFile#&action=add" 
ADDWHERE="user_ID=#URL.user ID#" 


<CFELSEIF URL.action EQ "Add"> 

<CFSET title = "#VARIABLES.addTitle#"> 

<CFSET formAction = "#VARIABLES.mainFile#&action=saveNew"> 
<CFSET fonnNaine="forinAdd"> 

<CFELSEIF URL.action EQ "Edit"> 

<CFSET title = "#VARIABLES.editTitle#"> 

<CFSET formAction = "#VARIABLES.mainFile#&action=save”> 
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<CFSET fontiNaiae="forinEdit"> 


<CFELSEIF URL.action EQ "saveNew"> 

<CFINSERT DATASOURCE="#VARIABLES-useSource#" 

TABLENAtyIE=" iVARIABLES .mainTable# "> 

<CFLOCATION URL="#VARIABLES.mainFile#"> 

<CFELSEIF URL.action EQ "save''> 

<CFUPDATE DATASOURCE="#VARIABLES.useSource#" 

TABLENAME="#VARIABLES.mainTable#"> 

<CFLOCATION URL="#VARIABLES.mainFile#"> 

<CFELSEIF URL.action EQ "delete"> 

<CFQUERY NAME="deleteInfo" DATASOURCE="#VARIABLES.useSource#"> 

DELETE 

FROM #VARIABLES.mainTable# 

WHERE #VARIABLES.idField# = #Evaluate( 'URL.' & VARIABLES.idField )# 
</CFQUERY> 

<CFLOCATION URL="#VARIABLES.mainFile#"> 

</CFIF> 

<CFIF URL.action NEQ "View"> 

<CFQUERY NAME="getRecordInfo" DATASOURCE="#VARIABLES.useSource#"> 
SELECT * 

FROM #VARIABLES.mainTable# 

WHERE #VARIABLES.idField# = <CFIF URL.action EQ "Edit">#Evaluate( 

'URL.' & VARIABLES.idField )#<CFELSE>-1</CFIF> 

</CFQUERY> 

<!- display appropriate header -> 

<CF_srWinTab 
TABS="#VARIABLES.title#" 

SYSTEM_TOOLBAR="Save/List My Email Accounts" 

SYSTEM_TOOLBARLINKS="j avascript:document.#VARIABLES.formName#.submit(), 
main.cfm?a=myAccount&body=myEmailSetup.cfm&user_id=#URL.user_id#" 

> 

<TABLE BORDER=0 WIDTH=100%> 

<CFFORM ACTION="#VARIABLES.formAction#" NAME="#VARIABLES.formName#"> 
<CFOUTPUT> 

<INPUT TYPE="hidden" NAME="#VARIABLES.idField#" VALUE="#Evaluate( 

'getRecordInfo.' & VARIABLES.idField )#"> 

<INPUT TYPE="hidden" NAME="user_id" VALUE="#URL.user_id#"> 

</CFOUTPUT> 

<TR> 

<TD> 

<SPAN CLASS="winTab"> 
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<CF_srHELPSUMMARY shortNaine="myEinailSetup”> 

</SPAN> 

<P> 

<TABLE BORDER=0 WIDTH=100%> 

<TR> 

<TD CLASS="winTabLabel">&nbsp; ACCOUNT INFORMAT I ON</TD> 

<TD CLASS=”winTabField">&nbsp;</TD> 

</TR> 

<TR> 

<TD CLASS=”winTabLabel">&nbsp;Title of this account: </TD> 

<TD CIiASS="winTabField"> 

<CFINPUT 

NAME=”eitiailTitle” 

TYPE=”text" 

VALUE=”#getRecordInfo.emailTitle#" 

SIZE=”30” 

MAXLENGTH=”30" 

REQUIRED=”yes" 

MESSAGE="An Email Account Title is required." 

> 

</TD> 

</TR> 

<TR> 

<TD CLASS="winTabLabel">&nbsp;Your Name:</TD> 

<TD CLASS="winTabField"> 

<CFINPUT 
NAME="userName" 

TYPE=”text" 

VALUE="#getRecordInfo.userName#" 

SIZE="30" 

MAXLENGTH="50" 

REQUIRED="yes" 

MESSAGE="Your Name is required." 

> 

</TD> 

</TR> 

<TR> 

<TD CLASS="winTabLabel">&nbsp;Your Organization:</TD> 

<TD CLASS="winTabField"> 

<CFINPUT 

NAME="userOrganization" 

TYPE=="text" 

VALUE="#getRecordInfo.userOrgani 2 ation#" 

SIZE="30" 

MAXLENGTH="50" 

REQUIRED="no" 

> 

</TD> 

</TR> 

<TR> 

<TD CLASS="winTabLabel">&nbsp;Your Email Address for this account:</TD> 
<TD CLASS=="winTabField"> 

<CFINPUT 

NAME="userEmai1Address" 

TYPE="text" 

VALUE="#getRecordInfo.userEmailAddress#" 

SIZE="30" 
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MAXLENGTH="75" 

REQUIRED="yes" 

MESSAGE=”An Email Address is required.” 

> 

</TD> 

</TR> 

<TR> 

<TD CLASS="winTabLabel">&nbsp;Reply Email Address for this 
account:</TD> 

<TD CLASS="winTabField”> 

<CFINPUT 

NAME~ ”userRep1 yEma i1Address" 

TYPE=”text" 

VALUE=”#getRecordInfo.userReplyEmailAddress#" 

SIZE=”30" 

MAXLENGTH=”75" 

REQUIRED="no” 

> 

</TD> 

</TR> 

<TR> 

<TD>&nbsp;</TD> 

<TD>&nbsp;</TD> 

</TR> 

<TR> 

<TD CLASS=”winTabLabel”>&nbsp;EMAIL SERVER INFORMATION</TD> 

<TD CLASS=”winTabField">&nbsp;</TD> 

</TR> 

<TR> 

<TD CLASS=”winTabLabel”>&nbsp;Incoming (POPS) Server Address:</TD> 

<TD CLASS=”winTabField”> 

<CFINPUT 

NAME="popAddres s" 

TYPE="text” 

VALUE=”#getRecordInfo.popAddress#” 

SIZE=”30” 

MAXLENGTH=”50” 

REQUIRED=”yes” 

MESSAGE=”A POP Server Address is required.” 

> 

</TD> 

</TR> 

<TR> 

<TD CLASS="winTabLabel”>&nbsp;Incoming (POPS) Server Port Number:</TD> 
<TD CLASS=”winTabField”> 

<CFINPUT 

NAME="popAddres sPort” 

TYPE=”text” 

VALUE=”#Iif( getRecordInfo.popAddressPort EQ '',De( *110’ ),De( 
getRecordInfo.popAddressPort ) )#” 

VALIDATE="integer” 

SIZE=”10” 

MAXLENGTH=”4” 

REQUIRED-"yes” 

MESSAGE=”A POP Server Port Number is required.” 

> 

</TD> 
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</TR> 

<TR> 

<TD CLASS="winTabLabel">&nbsp;Outgoing (SMTP) Server Address:</TD> 

<TD CLASS="winTabField"> 

<CFINPUT 

NAME=" smtpAddr e s s ” 

TYPE=”text” 

VALUE=.”#getRecordInfo • smtpAddress#" 

SIZE=”30” 

MAXLENGTH="50” 

REQUIRED-”yes” 

MESSAGE=”A SMTP Server Address is required." 

> 

</TD> 

</TR> 

<TR> 

<TD CLASS="winTabLabel">&nbsp;Outgoing (SMTP) Server Port Number:</TD> 
<TD CLASS="winTabField"> 

<CFINPUT 

NAME=" smtpAddr e s s Port" 

TYPE=”text" 

VALUE="#Iif( getRecordInfo.smtpAddressPort EQ '',De( '25’ ),De( 
getRecordInfo.smtpAddressPort ) )#" 

VALIDATE="integer" 

SIZE="10" 

MAXLENGTH="4" 

REQUIR£D="yes" 

MESSAGE="A SMTP Server Port Number is required." 

> 

</TD> 

</TR> 

<TR> 

<TD>&nbsp;</TD> 

<TD>&nbsp;</TD> 

</TR> 

<TR> 

<TD CLASS="winTabLabel">&nbsp;SECURITY INFORMATION</TD> 

<TD CLASS="winTabField">&nbsp;</TD> 

</TR> 

<TR> 

<TD CLASS="winTabLabel">&nbsp;Account Login:</TD> 

<TD CLASS="winTabField"> 

<CFINPUT 

NAME=”accountName" 

TYPE="text" 

VALUE="#getRecordInfo.accountName#" 

SIZE="30" 

MaXLENGTH="30" 

REQUIRED="yes" 

MESSAGE="An account name is required.” 

> 

</TD> 

</TR> 

<TR> 

<TD CLASS="winTabLabel”>&nbsp;Account Password:</TD> 

<TD CLASS="winTabField”> 

<CFINPUT 
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NAME="accountPassword" 

TyPE="password" 

V'ALUE="#getRecordInfo. accountPas sword#” 

SIZE="30” 

MAXLENGTH="20" 

REQUIRED="no” 

> 

</TD> 

</TR> 

<TR> 

<TD CLASS="winTabLabel">&nbsp;Remember password?</TD> 

<TD CLASS="winTabField”> 

<CFIF tgetRecordlnfo.rememberPassword# NEQ ""> 

<CFSET temp = #getRecordInfo.rememberPassword#> 

<CFELSE> 

<CFSET temp = false> 

</CFIF> 

<CFINPUT TYPE="Radio" NAME="rememberPassword" VALUE=false 
CHECKED="#Iif( NOT VARIABLES.temp,De( 'true' ),De{ 'false' ) )#">No 
Thanks 

<CFINPUT TyPE="Radio" NAME="rememberPassword" VALUE=true CHECKED="#Iif( 

VARIABLES.temp,De( 'true' ),De( 'false' ) )#">Yes 

</TD> 

</TR> 

<TR> 

<TD>&nbsp;</TD> 

<TD>&nbsp;</TD> 

</TR> 

<TR> 

<TD CLASS="winTabLabel">&nbsp;OPTIONS</TD> 

<TD CLASS="winTabField">&nbsp;</TD> 

</TR> 

<TR> 

<TD CLASS="winTabLabel">&nbsp;Delete email on server after 
receiving?</TD> 

<TD CLASS="winTabField"> 

<CFIF #getRecordInfo.deleteOnServer# NEQ ""> 

<CFSET temp = #getRecordInfo.deleteOnServer#> 

<CFELSE> 

<CFSET temp = false> 

</CFIF> 

<CFINPUT TyPE="Radio" NAME="deleteOnServer" VALUE=false CHECKED="#Iif( 
NOT VARIABLES.temp,De( 'true' ),De( 'false' ) )#">No Thanks 
<CFINPUT TyPE=”Radio" NAME="deleteOnServer" VALUE=true CHECKED="#Iif( 
VARIABLES.temp,De( 'true' ),De( 'false' ) )#">yes 
</TD> 

</TR> 

<TR> 

<TD CLASS="winTabLabel">&nbsp;Seconds to wait before timing out:</TD> 
<TD CLASS="winTabField"> 

<CFINPUT 
NAME="timeout" 

TyPE="text" 

VALIDATE="integer" 

RANGE="0,300" 

VALUE="#getRecordInfo.timeOut#" 

SIZE="10" 
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MAXLENGTH="3" 

REQUIRED="no" 

> 

Seconds 

</TD> 

</TR> 

<TR> 

<TD CLASS=”winTabLabel">&nbsp;Set this account as the default'’</TD> 
<TD CLASS="winTabField"> 

<CFIF tgetRecordInfo.setAsDefault# NEQ ""> 

<CFSET temp = #getRecordInfo.setAsDefault#> 

<CFELSE> 

<CFSET temp = false> 

</CFIF> 

<CFINPUT TYPE="Radio" NAME="setAsDefault" VALUE=false CHECKED="#Iif( 
NOT VARIABLES.temp,De( 'true' ),De{ 'false' ) )#">No Thanks 
<CFINPUT TYPE="Radio" NAME="setAsDefault" VALUE=true CHECKED=''#Iif{ 
VARIABLES.temp,De{ 'true' ),De( 'false' ) )#">Yes 
</TD> 

</TR> 

</TABLE> 

</TD> 

</TR> 

</CFFORM> 

</TABLE> 

</CF_srWinTab> 

</CFIF> 


MYINFQRMATION.CFM 

<CFIF NOT IsDefined( "URL.user_id" )> 

<CFSET URL.user_id = #SESSION.user_id#> 

</CFIF> 

<CFPARAM NAME="URL.action" DEFAULT="edit"> 

<CFSET mainFile = 

"main.cfm?a=myAccount&body=myInformation.cfm&user_id=#URL.user id#"> 

<CFSET mainTable = "tblUserAccounts"> ~ 

<CFSET idField = "user_id"> 

<CFIF URL.action EQ "informationSave"> 

<!- save new password if required -> 

<SCRIPT LANGUAGE="javascript" SRC="cookies.js"></SCRIPT> 

<SCRIPT lANGUAGE="javascript"> 

var xR = readCookie( 'cookieRemember' ); 

if ( xR != null ) 

<CFOUTPUT> 

saveCookie( 'cookiePassword','#FORM.user password#',30); 

</CFOUTPUT> 

</SCRIPT> 
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<CFUPDATE DATASOURCE="#YARIABLES.gvDATASOURCE_USER#" 
TABLENAME="#VARIABLES.mainTable#" 

FORMFIELDS=’'lname, fname, rank, ssn, phone, email, command, user_password, home 
page"> 

<CFLOCATION URL="#VARIABLES.mainFile#"> 

<CFELSEIF URL.action EQ "edit"> 

<CFSET title = "my Information"> 

<CFSET formAction = "#VARIABLES.mainFile#&action=informationSave"> 
<CFSET formName="formAccount"> 

<CFQUERY NAME="getRecordInfo" 

DATASOURCE="#VARIABLES.gvDATASOURCE_USER#"> 

SELECT * 

FROM #VARIABLES.mainTable# 

WHERE user_id = #URL.user_id# 

</CFQUERY> 

<!- display appropriate header -> 

<CF_srWinTab 

TABS="myInformation,mySecurity,myColors,myToolbar,myPanel" 

TABSELECTED=''l" 

TABURL="main.cfm?a=myAccount&body=myInformation.cfm&user_id=#URL.user_i 
d#,main.cfm?a=myAccount&body=mySecurity.cfm&user_id=#URL.user_id#,main. 
cfm?a=myAccount&body=myColors.cfm&user_id=#URL.user_id#, main.cfm?a=myAc 
count&body=myToolbar.cfm&user_id=#URL.user_id#,main.cfm?a=myAccount&bod 
y=myPanel.cfm&user_id=#URL.user_id#" 

SYSTEM_TOOLBAR="S ave" 

SYSTEM_TOOLBARLINKS="j avascript:document.#VARIABLES.formName#.submit()" 
> 

<TABLE BORDER=0 WIDTH=100%> 

<CFFORM ACTION="#VARIABLES.formAction#" NAME="#VARIABLES.formName#"> 
<CFOUTPUT> 

<INPUT TYPE="hidden" NAME="#VARIABLES.idField#" VALUE="#Evaluate{ 
'getRecordInfo.' & VARIABLES.idField )#"> 

</CFOUTPUT> 

<TR> 

<TD> 

<SPAN CLASS="winTab"> 

<CF_srHELPSUMMARY shortName="myInformation"> 

</SPAN> 

<P> 

<TABLE BORDER=0 WIDTH=100%> 

<TR> 

<TD CLASS="winTabLabel">&nbsp;Date you last logged in:</TD> 

<TD CLASS="winTabField"> 

<CFIF getRecordInfo.last_logon NEQ ""> 

<CFOUTPUT>#DateFormat{ getRecordInfo.last_logon,’dd mmm yyyy' )# at 
#TimeFormat( getRecordInfo.last_logon,'H:mm' )#</CFOUTPUT> 

</CFIF> 

</TD> 

</TR> 
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<TR> 

<TD CLASS="winTabLabel">&nbsp;Date you last changed your password:</TD> 
<TD CLASS="winTabField"> 

<CFIF getRecordInfo.last_logon NEQ ""> 

<CFOUTPUT>#DateFormat ( getRecordInfo.password change,'dd mrnTn yvvv' 

)#</CFOUTPUT> ~ 

</CFIF> 

</TD> 

</TR> 

<TR> 

<TD CLASS="winTabLabel’'>&nbsp;Date your account expires’</TD> 

<TD CLASS="winTabField"> 

<CFOUTPUT>#DateFoinriat ( getRecordInfo,expire,’dd mmm yyyy’ ) #</CFOUTPUT> 

</TR> 

<TR> 

<TD CLASS="winTabLabel">&nbsp;User account template:</TD> 

<TD CLASS=”winTabField"> 

<CFOUTPUT>#getRecordInfo.template#</CFOUTPUT> 

</TD> 

</TR> 

<TR> 

<TD CIiASS="winTabLabel">&nbsp;Login ID:</TD> 

<TD CLASS="winTabField"> 

<CFOUTPUT>#getRecordInfo.user_loginid#</CFOUTPUT> 

</TD> 

</TR> 

<TR> 

<TD CLASS="winTabLabel">&nbsp;Last Name:</FONT></TD> 

<TD CLASS="winTabField"> 

<CFINPUT 

NAME="lname" 

TyPE="text" 

V2UjXJE="#getRecordInfo. Iname#" 

SIZE="30" 

MAXLENGTH="30" 

REQUIRED="yes" 

MESSAGE="A Last Name must be entered" 

> 

</TD> 

</TR> 

<TR> 

<TD CLASS="winTabLabel">&nbsp;First Name:</FONT></TD> 

<TD CLASS="winTabField"> 

<CFINPUT 
NAME="fname" 

TyPE="text" 

VALUE="#getRecordInfo.fname#" 

SIZE="30" 

MaXLENGTH="30" 

REQUIRED="yes" 

MESSAGE="A First Name must be entered" 

> 

</TD> 

</TR> 

<TR> 

<TD CLASS="winTabLabel">&nbsp;Rank:</FONT></TD> 
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<TD CLASS="winTabField”> 

<CFINPUT 

NAME="rank" 

TYPE="text” 

VALXJE= " #ge tRecordInf o. rank# " 

SIZE="20" 

MAXLENGTH=”10” 

REQUIRED="yes” 

MESSAGE="Rank must be entered" 

> 

</TD> 

</TR> 

<TR> 

<TD CLASS="winTabLabel">&nbsp;SSN (Last four):</FONT></TD> 
<TD CLASS="winTabField"> 

<CFINPUT 

NAME="ssn" 

TYPE="text" 

VALUE="#getRecordInfo.ssn#" 

SIZE="20" 

MAXLENGTH="4" 

REQUIRED="no" 

> 

</TD> 

</TR> 

<TR> 

<TD CLASS="winTabLabel”>&nbsp;Phone:</FONT></TD> 

<TD CLASS="winTabField"> 

<CFINPUT 
NAME="phone” 

TYPE=”text" 

VALUE="#getRecordInfo.phone#" 

SIZE="20" 

MAXLENGTH="15" 

REQUIRED="no" 

> 

</TD> 

</TR> 

<TR> 

<TD CLASS="winTabLabel">&nbsp;Email Address:</FONT></TD> 
<TD CLASS="winTabField">' 

<CFINPUT 
NAME=" email" 

TYPE="text" 

VALUE="#getRecordInfo.email#" 

SIZE="30" 

MAXLENGTH="75" 

REQUIRED=”no" 

> 

</TD> 

</TR> 

<TR> 

<TD CLASS="winTabLabel">&nbsp;Homepage:</FONT></TD> 

<TD CLASS=^"winTabField"> 

<CFINPUT 

NAME="homepage" 

TYPE="text" 
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VALUE="#getRecordInfo.homepage#" 

SIZE="30" 

MAXLENGTH="75" 

REQUIRED="no" 

> 

</TD> 

</TR> 

<TR> 

<TD CLiASS="winTabLabel">&nbsp; Command : </FONT></TD> 

<TD CLASS="winTabField"> 

<CFINPUT 
NAiy[E= " command" 

TYPE="text" 

VALUE="#getRecordInfo.command#" 

SIZE="30" 

MAXLENGTH="75" 

REQUIRED="yes" 

MESSAGE="A Command name must be entered." 

> 

</TD> 

</TR> 

<TR> 

<TD CLASS="winTabLabel">&nbsp;Password:</FONT></TD> 

<TD CLASS="winTabField”> 

<CFINPUT 

NAME="user_password" 

TYPE="password” 

VALUE="#getRecordInfo.user password#" 

SIZE="30" 

MAXLENGTH="10" 

REQUIRED="yes" 

MESSAGE="A Password must be entered." 

> 

</TD> 

</TR> 

<TR> 

<TD CLASS="winTabLabel">&nbsp;Re-Enter Password:</FONT></TD> 
<TD CLASS="winTabField"> 

<CFINPUT 

NAME="user_password_check" 

TYPE="password" 

VALUE="#getRecordInfo.user_password#" 

SIZE="30" 

MAXLENGTH="10" 

REQUIRED="yes" 

MESSAGE="You must re-enter your password." 

> 

</TD> 

</TR> 

</TABLE> 

</TD> 

</TR> 

</CFFORM> 

</TABLE> 

</CF srWinTab> 
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</CFIF> 


MYPANEL.CFM 

<CFIF NOT IsDefined( "URL.user_id” )> 

<CFSET URL.user_id = #SESSION.user_id#> 

</CFIF> 

<CFPARAM NAME="URL.action" DEFAULT="View"> 

<CFSET mainFile = "main.cfra?a=myAccount&body=myPanel.cfm"> 

<CFSET formAction = 

"#VARIABLES.mainFile#&form=true&user_id=#SESSION.user_id#"> 

<CFSET formName="formPanelComponents"> 

<CFSET title = "My Panel Components"> 

<CFIF URL.action EQ "View"> 

<SCRIPT LANAGUAGE="Javascript"> 

function onSiabmit ( actionType ) 

{ 

<CFOUTPUT> 

document.#VARIABLES.formName#.action = 

"#VARIABLES.formAction#&actionType=" + actionType; 
document.tVARIABLES.formName#.submit(); 

</CFOUTPUT> 

} 

</SCRIPT> 

<CFIF IsDefined( "URL.form" )> 

<CFIF #URL.form#> 

<CFIF #URL.actionType# EQ "add" > 

<CFLOOP INDEX="Counter" FROM="l" TO="#ListLen( FORM.Components )#"> 

<CFQUERY NAME="AddNew" DATASOURCE="#VARIABLES.gvDATASOURCE_USER#"> 

INSERT INTO tblMyPanelComponents ( user_id,panelComponent_ID ) 
VALUES ( #URL.user_id#,#ListGetAt ( FORM.Components,Counter )# ) 

</CFQUERY> 

</CFLOOP> 

<CFELSEIF #URL.actionType# EQ "remove" > 

<CFQUERY NAME="Remove" DATASOURCE="#VARIABLES.gvDATASOURCE_USER#”> 

DELETE FROM tblMyPanelComponents 
WHERE user_id = #URL.user_id# 

AND panelComponent_ID IN ( #FORM.UserComponents# ) 
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</CFQUERY> 


</CFIF> 

<CFLOCATION URL="#VARIABLES .mainFile#''> 

</CFIF> 

</CFIF> 

<CFQUERY NAME="getUserComponentIDs" 

DATASOURCE="#VARIABLES.gvDATASOURCE_USER#"> 

SELECT panelComponent_ID 

FROM tblMyPanelComponents 
WHERE user_id = #URL.user_id# 

</CFQUERY> 

<CFQUERY NAME="getComponents" 

DATASOURCE="#VARIABLES.gvDATASOURCE_CONFIG#"> 

SELECT * 

FROM tblPanelComponents 
WHERE 0=0 

<CFIF #getUserComponentIDs.RecordCount# NEQ 0> 

AND panelComponent_ID NOT IN ( #ValueList( 
getUserComponentIDs.panelComponent ID )# ) 

</CFIF> ~ 

AND pcTitle <> 'Add Components' 

ORDER BY pcTitle 

</CFQUERY> 

<CFQUERY NAME="getUserComponents" 

DATASOURCE="#VARIABLES.gvDATASOURCE_CONFIG#"> 

SELECT * 

FROM tblPanelComponents 
WHERE 

<CFIF #getUserComponentIDs.RecordCount# NEQ 0> 
panelComponent_ID IN ( #ValueList( 
getUserComponentIDs.panelComponent ID )# ) 

<CFELSE> ~ 

0=1 

</CFIF> 

ORDER BY pcTitle 

</CFQUERY> 

<!- display appropriate header -> 

<CF_srWinTab 

TABS=”myInformation,mySecurity,myColors,myToolbar, myPanel" 
TABSELECTED="5" 

TABURL="main.cfm?a=myAccount&body=myInformation.cfm&user_id=#URL.user i 

d#,mam.cfm?a-myAccount&body=mySecurity.cfm&user_id=#URL.user id#,main. 
cfm?a-myAccount&body=myColors.cfm&user_id=#URL.user id#,main.cfm'’a=myAc 
count&body=myToolbar.cfm&user_id=#URL.user_id#,mainTcfm?a=myAccount&bod 
y=myPanel.cfm&user_id=#URL.user_id#” 
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SYSTEM_TOOLBAR="#Iif( getComponents.RecordCount NEQ 0,De( 'Add' ),De{ 

" ) )#,#Iif( getUserComponents.RecordCount NEQ 0,De( 'Remove' ),De( " 
) )#,#Iif( getUserComponents.RecordCount NEQ 0,De( 'Properties' ),De{ 

" ) )#" 

SYSTEM_TOOLBARLINKS="#Iif( getComponents.RecordCount NEQ 0,De( 

'javascriptronSubmit( ''add'' )' ),De( '' ) )#,#Iif{ 
getUserComponents.RecordCount NEQ 0,De( 'javascript:onSubmit{ 

''remove'' )' ),De( '' ) )#,#Iif{ getUserComponents.RecordCount NEQ 
0,De( ' javascript :onSubmit ( "properties" )' ),De( " ) )#" 

> 

<TABLE BORDER=0 WIDTH=100%> 

<TR> 

<TD> 

<SPAN CLASS=”winTab"> 

<CF_srHELPSUMMARY shortName="myPanel" 

Page="#aComponent[URL.alD][cAPPLICATION][cAPPLICATION_NAME]#"> 

</SPAN> 

<P> 

<CFFORM ACTION="#VARIABLES.formAction#" NAME="#VARIABLES. formName#"> 
<TABLE BORDER=0 WIDTH=100%> 

<TR> 

<TD CLASS="winTabLabel" WIDTH="50%" ALIGN="center">Available 
Components</TD> 

<TD CLASS="winTabLabel" WIDTH="50%" ALIGN="center''>My Components</TD> 
</TR> 

<TR> 

<TD CLASS="winTabField" WIDTH="50%" ALIGN="center"> 

<CFSELECT 

NAME="Components" 

QUERY=''getComponents " 

SIZE="8" 

VALUE=''panelComponent_ID" 

DISPLAY="pcTitle" 

MULTIPLE="YES" 

> 

</CFSELECT> 

</TD> 

<TD CLASS='’winTabField" WIDTH="50%" ALIGN="center"> 

<CFSELECT 

NAME="UserComponents" 

QUERY=''getUserComponents" 

SIZE="8" 

VALUE="panelComponent_ID" 

DISPLAY="pcTitle" 

MULTIPLE="YES" 

> 

</CFSELECT> 

</TD> 

</TR> 

</TABLE> 

</CFFORM> 

</TD> 

</TR> 

</TABLE> 
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</CF srWinTab> 


</CFIF> 

MYSECURTTYCFM 


<CFPARAM NAME= "URL.action" DEFAULT="edit"> 

<CFIF NOT IsDefined( "URL.user_id" )> 

<CFSET URL.user_id = #SESSION.user_id#> 

</CFIF> 

<CFIF IsDefined( "URL.actionCookie" )> 

<CFQUERY NAME="getUserInfo" DATASOURCE="#VARIABLES.gvDATASOURCE_USER# 

SELECT user_loginid,user_password 

FROM tblUserAccounts 

WHERE user_loginid = '#SESSION.loginid#' 

</CFQUERY> 

<CFIF #URL.actionCookie# EQ "save"> 

<SCRIPT 1ANGUAGE=" javascript" SRC="cookies.js"></SCRIPT> 

<SCRIPT IANGUAGE="javascript"> 

<CFOUTPUT> 

<!— set expiration to 30 days for now, this will be an option for 
ADMIN-> 

saveCookie( 'cookieLogin','tgetUserInfo.user_loginid#', 30 ); 
saveCookie( 'cookiePassword','#getUserInfo.user_password#', 30 ); 
saveCookie( 'cookieRemember','true',30); 

</CFOUTPUT> 

</SCRIPT> 

<CFELSE> 

<!- delete cookies just in case -> 

<SCRIPT LANGUAGE="javascript" SRC="cookies.js"></SCRIPT> 

<SCRIPT IANGUAGE="javascript"> 
deleteCookie( 'cookieLogin' ); 
deleteCookie( 'cookiePassword' ); 
deleteCookie( 'cookieRemember' ); 

</SCRIPT> 

</CFIF> 

</CFIF> 

<CFSET mainFile = 

"main.cfm?a=myAccount&body=mySecurity.cfm&user id=#URL.user id#"> 

<CFSET mainTable = "tblMySecurity"> ~ ~ 

<CFSET idField = "mySecurity_id"> 

<CFIF URL.action EQ "securitySave"> 
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<CFIF #FORM,mySecurity_id# NEQ ""> 

<CFUPDATE DATASOURCE="#VARIABLES.gvDATASOURCE_USER#" 
TABLENAME="#VARIABLES.mainTable#"> 

<CFELSE> 

<CFINSERT DATASOURCE="#VARIABLES.gvDATASOURCE_USER#" 
TABLENAME="#VARIABLES.mainTable#"> 

</CFIF> 

<CFIF #FORM.remeniberLogin#> 

<CFLOCATION URL="#VARIABLES.mainFile#&actionCookie=save"> 
<CFELSE> 

<CFLOCATION URL="#VARIABLES.mainFile#&actionCookie=delete"> 
</CFIF> 


<CFELSEIF URL.action EQ "edit"> 

<CFSET title = "my Security"> 

<CFSET formAction = "#VARIABLES.mainFile#&action=securitySave"> 

<CFSET fo 2 nnName="formSecurity"> 

<CFQUERY NAME="getRecordInfo" 

DATASOURCE="#VARIABLES. gvDATASOURCE_USER#"> 

SELECT * 

FROM #VARIABLES.mainTable# 

WHERE user_id = #URL.user_id# 

</CFQUERy> 

<!- display appropriate header -> 

<CF_srWinTab 

TABS="myInformation,mySecurity,myColors,myToolbar,myPanel" 

TABSELECTED="2" 

TABURL="main.cfm?a=myAccount&body=myInformation.cfm&user_id=#URL.user_i 
d#,main.cfm?a=myAccount&body=mySecurity.cfm&user_id=#URL.user_id#,main. 
cfm?a=myAccount&body=myColors.cfm&user_id=#URL.user_id#,main.cfm?a=myAc 
count&body=myToolbar.cfm&user_id=#URL.user_id#,main.cfm?a=myAccount&bod 
y=myPanel.cfm&user_id=#URL.user_id#" 

SYS TEM_TOOLBAR="Save" 

SYSTEM_TOOLBARLINKS="j avascript:document.#VARIABLES.formName#.sxabmit()" 
> 

<TABLE BORDER=0 WIDTH=100%> 

<CFFORM ACTION="#VARIABLES.formAction#" NAME="#VARIABLES.formName#"> 
<CFOUTPUT> 

<INPUT TYPE="hidden" NAME="#VARIABLES.idField#" VALUE="#Evaluate( 
'getRecordInfo.' & VARIABLES.idField )#"> 

<INPUT TYPE="hidden" NAME="user_id" VALUE="#URL.user_id#"> 

</CFOUTPUT> 

<TR> 

<TD> 

<SPAN CLASS="winTab"> 

<CF_srHELPSUMMARY shortName="mySecurity"> 

</SPAN> 
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<p> 


<TABLE BORDER=0 WIDTH=100%> 

<TR> 

<TD CLASS="winTabLabel">&nbsp;PASSWORD INFORMATION</TD> 

<TD CLASS="winTabField">&nbsp;</TD> 

</TR> 

<TR> 

<TD CLASS="winTabLabel">&nbsp;Reinember login infonnation’^</TD> 
<TD CLASS="winTabField”> 

<CFIF #getRecordInfo.rememberLogin# NEQ ""> 

<CFSET temp = igetRecordInfo.rememberLogin#> 

<CFELSE> 


<CFSET temp = false> 

</CFIF> 

<CFINPUT TYPE="Radio" NAME="rememberLogin" VALUE=false CHECKED="#Iif 
NOT VARIABLES.temp,De( 'true' ),De( 'false' ) )#">No Thanks 
<CFINPUT TYPE="Radio" NAME="rememberLogin" VALUE=true CHECKED="#Iif( 
VARIABLES.temp,De( 'true' ),De( 'false' ) )#">Yes 
</TD> 

</TR> 

<TR> 

<TD CLASS="winTabLabel">&nbsp;Change password automaticallv and 
email?</TD> 

<TD CLASS="winTabField"> 


( 


<CFIF #getRecordInfo.autoPassword# NEQ ""> 
<CFSET temp = igetRecordInfo.autoPassword#> 
<CFELSE> 


<CFSET temp = false> 

</CFIF> 

<CFINPUT TYPE="Radio" NAME="autoPassword" VALUE=false CHECKED="#Iif{ 
NOT VARIABLES.temp,De( 'true' ),De( 'false' ) )#">No Thanks 
<CFINPU’T TYPE="Radio" NAME="autoPassword" VALUE=true CHECKED="#Iif( 
VARIABLES.temp,De( 'true' ),De( 'false' ) )#">Yes 
</TD> 

</TR> 

<TR> 


<TD>&nbsp;</TD> 

<TD>&nbsp/</TD> 

</TR> 

<TR> 

<TD CLASS="winTabLabel">&nbsp;VACATION/BUSINESS ABSENCE</TD> 
<TD CLASS="winTabField">&nbsp;</TD> 

</TR> 

<TR> 

<TD CLASS="winTabLabel">&nbsp;When will you depart'^</TD> 

<TD CLASS="winTabField"> 

<CFINPUT 

NAME=”absentFrom’' 

TYPE="text" 

VALIDATE="date" 

VALIffi="#DateFormat( getRecordInfo.absentFrom,'mm/dd/yyyy' )#" 
SIZE—"10" 

MAXLENGTH="10" 

REQUIRED="no" 


snbsp; 


228 



<CF_srAddPopUpCalendar 

FIELD="docuinent. #VARIABLES. fontiName#. absentFrom"> 

</TD> 

</TR> 

<TR> 

<TD CLASS="winTabLabel”>&nbsp;When will you return?</TD> 

<TD CLASS="winTabField"> 

<CFINPUT 

NAME="absentTo" 

TyPE="text" 

VALIDATE="date" 

VALUE="#DateFonaat( getRecordInfo.absentTo,'mm/dd/yyyy' )#" 

SIZE="10" 

MAXLENGTH="10" 

REQUIRED="no" 

> 

&nbsp; 

<CF_srAddPopUpCalendar FIELD="document.#VARIABLES.formName#.absentTo"> 
</TD> 

</TR> 

<TR> 

<TD CLASS="winTabLabel”>&nbsp;Prevent logins during this period?</TD> 
<TD CLASS="winTabField"> 

<CFIF #getRecordInfo.absentPreventLogon# NEQ "”> 

<CFSET temp = #getRecordInfo.absentPreventLogon#> 

<CFELSE> 

<CFSET temp = false> 

</CFIF> 

<CFINPUT TYPE="Radio" NAME="absentPreventLogon" VALUE=false 
CHECKED="#Iif( NOT VARIABLES.temp,De( 'true' ),De( 'false' ) )#">No 
Thanks 

<CFINPUT TyPE=''Radio’' NAME="absentPreventLogon'' VALUE=true 
CHECKED="#Iif( VARIABLES.temp,De( 'true' ),De( 'false' ) }§">Yes 
</TD> 

</TR> 

<TR> 

<TD>&nbsp;</TD> 

<TD>&nbsp;</TD> 

</TR> 

<TR> 

<TD CLASS="winTabLabel''>&nbsp;ACCOUNT ACTIVITY</TD> 

<TD CLASS=''winTabField">&nbsp;</TD> 

</TR> 

<TR> 

<TD CLASS="winTabLabel">&nbsp;Email audit trail reports?</TD> 

<TD CLASS=''winTabField"> 

<CFIF igetRecordInfo.emailAuditTrail# NEQ ""> 

<CFSET temp = #getRecordInfo.emailAuditTrail#> 

<CFELSE> 

<CFSET temp = false> 

</CFIF> 

<CFINPUT TYPE="Radio" NAME=''emailAuditTrail'' VALUE=false CHECKED="#Iif ( 

NOT VARIABLES, temp, De ( 'true' ),De( 'false' ) )#''>No Thanks 

<CFINPUT TYPE="Radio" NAME="emailAuditTrail" VALUE=true CHECKED="#Iif( 

VARIABLES.temp,De( 'true' ),De( 'false' ) )#">Yes 

</TD> 

</TR> 
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<TR> 

<TD CLASS="winTabLabel">&nbsp;&nbsp; If yes, when would you like 
them?</TD> 

<TD CLASS="winTabField"> 

<CFSELECT 

NAME="emai1 AuditTrailWhen" 

SIZE="1" 

MULTIPLE="no" 

> 

<CFOUTPUT> 

<OPTION VALUE="0" #Iif( getRecordInfo.emailAuditTrailWhen EQ ’',De( 
'SELECTED' ),De( " ) )#>Not now 

<OPTION VALUE="1" #Iif( getRecordInfo.emailAuditTrailWhen EQ 'l',De{ 
'SELECTED' ),De( " ) )#>Daily 

<OPTION VALUE="2" #Iif( getRecordInfo.emailAuditTrailWhen EQ '2',De( 
'SELECTED' ),De( " ) )#>Weekly 

<OPTION VALUE=’'3" #Iif( getRecordInfo.emailAuditTrailWhen EQ '3',De( 
'SELECTED' ),De( " ) )#>Bi-Weekly 

<OPTION VALUE="4" #Iif( getRecordInfo.emailAuditTrailWhen EQ '4',De( 

'SELECTED' ),De( " ) )#>Monthly 

</CFOUTPUT> 

</CFSELECT> 

</TD> 

</TR> 

<TR> 

<TD CLASS="winTabLabel">&nbsp;Email changes made by Administrator’’</TD> 
<TD CLASS=''winTabField"> 

<CFIF #getRecordInfo.emailAdminChanges# NEQ ""> 

<CFSET temp = #getRecordInfo.emailAdminChanges#> 

<CFELSE> 

<CFSET temp = false> 

</CFIF> 

<CFINPUT TYPE="Radio" NAME="emailAdminChanges" VALUE=false 
CHECKED="#Iif( NOT VARIABLES.temp,De{ 'true' ),De( 'false' ) )#’'>No 
Thanks 

<CFINPUT TYPE=''Radio" NAME="emailAdminChanges" VALUE=true 
CHECKED="#Iif( VARIABLES.temp,De( 'true' ),De( 'false' ) )#">Yes 
</TD> 

</TR> 

</TABLE> 

</TD> 

</TR> 

</CFFORM> 

</TABLE> 

</CF_srWinTab> 

</CFIF> 


MYTQOLBARCFM 

<CFIF NOT IsDefined( ''URL.user_id" )> 
<CFSET URL.user_id = #SESSION.user_id#> 
</CFIF> 
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<CFPARAM NAME="URL.action" DEFAULT="edit"> 

<CFSET mainFile = 

"main.cfm?a=myAccount&body=inyToolbar.cfm&user_id=#URL,user_id#"> 

<CFSET mainTable = "tblMyToolbar"> 

<CFSET idField = "myToolbar_id"> 

<CFIF URL.action EQ "toolbarSave"> 

<CFIF #FORM.myToolbar_id# NEQ ""> 

<CFUPDATE DATASOURCE="#VARIABLES.gvDATASOURCE_USER#" 
TABLENAME="#VARIABLES.mainTable#"> 

<CFELSE> 

<CFINSERT DATASOURCE="#VARIABLES.gvDATASOURCE_USER#" 

TABLENflME="#VARIABLES.mainTable#"> 

</CFIF> 

<CFLOCATION URL="#VARIABLES.mainFile#"> 

<CFELSEIF URL.action EQ "edit"> 

<CFSET title = "my Toolbar"> 

<CFSET formAction = "#VARIABLES.mainFile#&action=toolbarSave"> 

<CFSET formName="formToolbar"> 

<CFQUERY NAME="getRecordInfo" 

DATASOURCE="#VARIABLES.gvDATASOURCE_USER#"> 

SELECT * 

FROM #VARIABLES.mainTable# 

WHERE user_id = #URL.user_id# 

</CFQUERY> 

<!- display appropriate header -> 

<CF_srWinTab 

TABS="myInformation,mySecurity,myColors,myToolbar,myPanel" 

TABSELECTED="4" 

TABURL="main. cfm?a=myAccount&body=myInf ormation. cfm&user_id=#URL. user_i 
d#, main.cfm?a=myAccount&body=mySecurity.cfm&user_id=#URL.user_id#,main. 
cfm?a=myAccount&body=myColors.cfm&user_id=#URL.user_id#, main.cfm?a=myAc 
count&body=myToolbar.cfra&user_id=#URL.user_id#,main.cfm?a=myAccount&bod 
y=myPanel.cfm&user_id=#URL.user_id#" 

SYS TEM_TOOLBAR="Save" 

SYSTEM_TOOLBARLINKS="javascript:document.#VARIABLES.formName#.submit()" 
> 

<TABLE BORDER=0 WIDTH=100%> 

<TR> 

<TD> 

<SPAN CLASS="winTab"> 

<CF_srHELPSUMMARY shortName="myToolbar"> 

</SPAN> 

<P> 

<CFFORM ACTION="#VARIABLES.formAction#" NAME="#VARIABLES.formName#"> 
<CFOUTPUT> 
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<INPUT TYPE="hidden" NAME="#VARIABLES.idField#" VALUE="#Evaluate( 
'getRecordInfo.’ & VARIABLES.idField )#”> 

<INPUT TYPE="hidden" NAME=”user_id" VALUE="#URL.user id#"> 
</CFOUTPUT> ~ 

<TABLE BORDER=0 WIDTH=100%> 

<CFLOOP INDEX="counter" FROM="l" TO="5"> 

<TR> 

<TD CLASS="winTabLabel"> 

<CFSWITCH EXPRESSION=”#counter#"> 

<CFCASE VALUE="1"> 

&nbsp;LINK ONE 
</CFCASE> 

<CFCASE VALUE="2"> 

&nbsp;LINK TWO 
</CFCASE> 

<CFCASE VALUE="3"> 

&nbsp;LINK THREE 
</CFCASE> 

<CFCASE VALUE="4"> 

&nbsp;LINK FOUR 
</CFCASE> 

<CFCASE VALUE='’5"> 

&nbsp;LINK FIVE 
</CFCASE> 

</CFSWITCH> 

</TD> 

<TD CLASS="winTabField"> 

&nbsp; 

</TD> 

</TR> 

<TR> 

<TD CLASS=”winTabLabel”>&nbsp;Label:</TD> 

<TD CLASS="winTabField"> 

<CFINPUT 

NAME="tbLabel#counter#” 

TYPE="text" 

VALUE="#Evaluate{ 'getRecordInfo.tbLabel' & counter )#" 

SIZE="30" 

MAXLENGTH="20" 

REQUIRED="no" 

> 

</TD> 

</TR> 

<TR> 

<TD CLASS="winTabLabel”>&nbsp;Web Address:</TD> 

<TD CLASS="winTabField"> 

<CFINPUT 

NAME=''tbURL#counter#" 

TYPE="text" 

VALUE="#Evaluate( 'getRecordInfo.tbURL' & counter )#" 

SIZE="50" 

MAXLENGTH="75" 

REQUIRED="no" 

> 

</TD> 

</TR> 
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<TR> 

<TD CLASS="winTabLabel">&nbsp;Message:</TD> 

<TD CLASS="winTabField"> 

<CFINPUT 

NAME="tbMessage#counter#" 

TYPE="text" 

VALUE="#Evaluate( ’getRecordInfo.tbMessage' & counter )#" 

SIZE="50" 

MAXLENGTH="50" 

REQUIRED="no" 

> 

</TD> 

</TR> 

<TR> 

<TD CLASS=”winTabLabel”>&nbsp;Open link where?</TD> 

<TD CLASS="winTabField"> 

<CFIF #Evaluate( 'getRecordInfo.newWindow' & counter )# NEQ ""> 

<CFSET temp = #Evaluate( 'getRecordInfo.newWindow' & counter )#> 
<CFELSE> 

<CFSET temp = 1> 

</CFIF> 

<CFINPUT TYPE="Radio" NAME="newWindow#counter#" VALUE="1'' 

CHECKED=''#Iif ( VARIABLES. temp EQ 'l',De( 'true' ),De( 'false' ) )#">New 
Window 

<CFINPUT TYPE="Radio" NAME="newWindow#counter#" VALUE="2" 

CHECKED="#Iif( VARIABLES.temp EQ '2',De( 'true' ),De( 'false' ) 

)#">Current Window 

<CFINPUT TYPE=''Radio" NAME="newWindow#counter#’' VALUE="3” 

CHECKED="#Iif( VARIABLES.temp EQ '3',De( 'true' ),De( 'false* ) 

) #">Within Readiness Explorer 
</TD> 

</TR> 

<CFIF counter NEQ 5> 

<TR> 

<TD>&nbsp;</TD> 

<TD>&nbsp;</TD> 

</TR> 

</CFIF> 

</CFLOOP> 

</TABLE> 

</CFFORM> 

</TD> 

</TR> 

</TABLE> 

</CF_srWinTab> 

</CFIF> 

8. TABBED PAGES FILES 

PAGEADMIN.CFM 

<SPAN CLASS="winTab"> 
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<CF_srHELPSIIMMARY shortName="AdminPage"> 
</SPAN> 

<CF_srPAGEOPTIONS NAME="Admin"> 


PAGEERROR.CFM 

<CFIF IsDefined( "FORM.cargo" )> 

<CFINSERT DATASOURCE="#VARIABLES.gvDATASOURCE CONFIG#" 
TABLENAME="tblFeedback"> ”” 

<! send email to sys admin -> 

<CF_srFEEDBACK TYPE="error*'> 

</CFIF> 

<CFSET mainFile = 

"main.cfm?body=pageError.cfm&error_id=#URL.error id#"> 

<CFSET title = "ERROR"> ~ 

<CFSET formAction = "#VARIABLES.mainFile#&action=sendFeedBack"> 

<CFSET formName="sendFeedBack”> 

<CFQUERY NAME=”getError" DATASOURCE="#VARIABLES.gvDATASOURCE_CONFIG#"> 

SELECT type, message, detail 

FROM tblErrors 

WHERE error_id = #URL.error_id# 

</CFQUERY> 

<!- display appropriate header -> 

<CF_srWinTab 
TABS="#VARIABLES.title#" 

SYSTEM_TOOLBAR="Send Feedback" 

SYSTEM_TOOLBARLINKS=" javascript:document. #VARIABLES. formName#. si:ibmit () " 

<TABLE BORDER=0 WIDTH=100%> 

<TR> 

<TD> 

<SPAN CLASS="winTab"> 

<CF_srHELPSUMMARY shortName="Error"> 

</SPAN> 

<P> 

<CFFORM ACTION="#VARIABLES.formAction#" NAME="#VARIABLES.formName#"> 
<CFOUTPUT> 

<INPUT TYPE="hidden" NAME="cargo" VALUE="#URL.error id#"> 

<INPUT TYPE="hidden" NAME="type" VALUE="ERROR"> ~ 

<INPUT TYPE="hidden" NAME="ip" VALUE="#CGI.REMOTE ADDR#"> 

<INPUT TYPE="hidden" NAME="dateSubmitted" VALUE="#Now{)#"> 

<INPUT TYPE="hidden" NAME="user" VALUE="#SESSION.loginid#"> 

</CFOUTPUT> 

<TABLE BORDER=0 WIDTH=100%> 
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<TR> 

<TD CIiASS="winTabField”><B>INFORl^TION REPORTED BY READINESS 
EXPLORER</B></TD> 

</TR> 

<TR> 

<TD CIiASS="winTabField"><CFOUTPUT>#getError.message#</CFOUTPUT></TD> 
</TR> 

<TR> 

<TD>&nbsp;</TD> 

</TR> 

<TR> 

<TD CLASS="winTabField"><B>INFORMATION REPORTED BY COLDFUSION</B></TD> 
</TR> 

<TR> 

<TD CLASS="winTabField”><CFOUTPUT>#getError.detail#</CFOUTPUT></TD> 
</TR> 

<TR> 

<TD>&nbsp;</TD> 

</TR> 

<TR> 

<TD CLASS="winTabField"><B>ADDITIONAL FEEDBACK</B></TD> 

</TR> 

<TR> 

<TD CLASS="winTabField"> 

<TEXTAREA CLASS=''stdTextBox" COLS=70 ROWS=10 NAME="feedback" 

WRAP="soft"></TEXTAREA> 

</TD> 

</TR> 

</TABLE> 

</CFFORM> 

</TD> 

</TR> 

</TABLE> 

</CF srWinTab> 


PAGEFEEDBACK.CFM 

<SPAN CLASS=’'winTab"> 

<CF_srHELPSUMMARY shortName="#URL.type#Feedback"> 
</SPAN> 


PAGEFORUMS.CFM 

<CFPARAM NAME="URL.action" DEFAULT="View"> 

<CFSET MAINFILE = "main.cfm?a=resources&body=pageForums.cfm"> 
<CFSET MAINTABLE = "tblForiJias"> 

<CFSET IDFIELD = "foruiii_id"> 

<CFSET ADDTITLE = "CREATE A NEW FORUM"> 

<CFSET EDITTITLE = "EDIT FORUM"> 

<CFSET USESOURCE = "#VARIABLES.gvDATASOURCE_CONFIG#"> 

<CFIF URL.ACTION EQ "View"> 
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<CF_SRRE PORTENGINE 
ACTION="run" 

NAME="Forums" 

INCLUDEOPTIONS="true" 

HEADERTYPE="List" 

SYSTEM_TOOLBAR="New” 

SYSTEM_TOOLBARLINKS="#VARIABLES.mainFile#&action=add" 


<CFELSEIF URL.ACTION EQ "Add"> 

<CFSET TITLE = "#VARIABLES.addTitle#"> 

<CFSET FORMACTION = "#VARIABLES.mainFile#&action=saveNew"> 
<CFSET FORMNAME="forinAdd"> 

<CFELSEIF URL,ACTION EQ "saveNew"> 

<CFINSERT DATASOURCE="#VARIABLES.useSource#" 

TABLENAME="#VARIABLES.mainTable#"> 

<CFLOCATION URL="#VARIABLES.mainFile#"> 

<CFELSEIF URL.ACTION EQ "Edit"> 

<CFSET TITLE = "#VARIABLES.editTitle#"> 

<CFSET FORMACTION = "#VARIABLES.mainFile#&action=save"> 
<CFSET FORMNAME="formEdit"> 


<CFELSEIF URL.ACTION EQ "save"> 

<CFUPDATE DATASOURCE="#VARIABLES.useSource#" 

TABLENAME="#VARIABLES.mainTable#"> 

<CFLOCATION URL="#VARIABLES.mainFile#"> 

<CFELSEIF URL.ACTION EQ "delete"> 

<CFQUERY NAME="deleteInfo" DATASOURCE="#VARIABLES.useSource#"> 

DELETE 

FROM #VARIABLES.mainTable# 

WHERE #VARIABLES.idField# = #Evaluate( 'URL.' & VARIABLES.idField )# 
</CFQUERY> 

<CFLOCATION URL="#VARIABLES.mainFile#"> 

</CFIF> 

<CFIF ( NOT COMPARENOCASE{ URL.ACTION,"Add" ) ) OR ( NOT COMPARENOCASE( 
URL.ACTION,"Edit" ) )> 

<CFQUERY NAME="getRecordInfo" DATASOURCE="#VARIABLES.useSource#"> 

SELECT * 

FROM #VARIABLES.mainTable# 

WHERE #VARIABLES.idField# = <CFIF URL.ACTION EQ "Edit">#Evaluate( 

'URL.' & VARIABLES.idField )#<CFELSE>-1</CFIF> 
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</CFQUERY> 


<!- display appropriate header -> 

<CF_SRWINTAB 
TABS="#VARIABLES.title#" 

SySTEM_TOOLBAR="Save" 

SYSTEM_TOOLBARLINKS="j avascript:document.#VARIABLES.formName#.submit{)" 
> 

<TABLE BORDER=0 WIDTH=100%> 

<CFFORM ACTION="#VARIABLES.formAction#" NAME="#YARIABLES.formName#"> 
<CFOUTPUT> 

<INPUT TYPE="hidden" NAME="#VARIABLES.idField#" VALUE=”#Evaluate( 
’getRecordInfo.' & VARIABLES.idField )#"> 

</CFOUTPUT> 

<TR> 

<TD> 

<SPAN CLASS="winTab”> 

<CF_SRHELPSUMMARY SHORTNAME="adminForums"> 

</SPAN> 

<P> 

<TABLE BORDER=0 WIDTH=100%> 

<TR> 

<TD CLAS S="winTabLabe1">&nbsp;Name:</TD> 

<TD CLASS="winTabField"> 

<CFINPUT 

NAME="name" 

TYPE="text" 

VALUE="#getRecordInfo.name#" 

SIZE=''30" 

MAXLENGTH="60" 

REQUIRED="yes" 

MESSAGE="A Forum Name is required." 

> 

</TD> 

</TR> 

<TR> 

<TD CLASS="winTabLabel">&nbsp;Created By:</TD> 

<TD CLASS="winTabField"> 

<CFINPUT 

NAME="createdBy" 

TYPE="text" 

VALUE="#Iif( URL.action EQ 'Add',De( SESSION.loginid ),De{ 
getRecordInfo.createdBy ) )#" 

SIZE="30" 

MAXLENGTH="15" 

REQUIRED="yes" 

MESSAGE=”Who Created the report must be entered" 

> 

</TD> 

</TR> 

<TR> 

<TD CLASS="winTabLabel">&nbsp;Created On:</TD> 

<TD CLASS="winTabField"> 

<CFINPUT 

NAME="dateCreated" 
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TyPE="text" 

VALUE="#Iif( URL.action EQ 'Add',De( DateFormat ( Now(),'inm/dd/yyyy' ) 
),De( DateFormat( getRecordInfo.dateCreated,'mm/dd/vvvv' ) ) 

SIZE="20" 

YALIDATE="date" 

MAXLENGTH="15" 

REQUIRED="Yes" 

MESSAGE="Date Created the report must be entered" 

> 

</TD> 

</TR> 

</TABLE> 

</TD> 

</TR> 

</CFFORM> 

</TABLE> 

</CF_SRWINTAB> 

<CFELSEIF NOT COMPARENOCASE( URL.ACTION,"Open" )> 

<CFQUERy NAME="getRecordInfo" DATASOURCE="#VARIABLES.useSource#"> 

SELECT name,collapse 

FROM #VARIABLES.mainTable# 

WHERE #VARIABLES.idField# = #Evaluate( 'URL.' & VARIABLES.idField )# 
</CFQUERY> 

<!- Save collapse variable into Client.collapse -> 

<CFPARAM NAME="URL.forum_id" DEFAULT="0"> 

<CFPARAM NAME="CLIENT.collapse" DEFAULT="#getRecordInfo.collapse#"> 
<CFPARAM NAME="collapse" DEFAULT="#Client.collapse#"> 

<!- display appropriate header -> 

<CF_SRWINTAB 

TABS="#getRecordInfo.name#" 

SYSTEM_TOOLBAR="List Forums,New Topic,#Iif( collapse EQ 0,De( 'Collapse 
Threads' ),De( 'View Threads' ) )#,Search" v , i corrapse 

SYSTEM_TOOLBARLINKS="#VARIABLES.mainFile#,iVARIABLES.mainFile#&action=n 
ewTopic&forum_id=#URL.forum_id#,#Iif( collapse EQ 0,De( 

VARIABLES.mainFile & '&action=open&collapse=l&forum id=' & URL.forum id 
),De( VARIABLES.mainFile & '&action=open&collapse=0&forum id=’ & ~ 

URL.foriam_id ) ~ 

)#,#VARIABLES.inainFile#&action=search&forum_id=#URL.forum id#" 

<TABLE BORDER=0 WIDTH=100%> 

<TR> 

<TD> 

<SPAN CLASS="winTab"> 

<CF_SRHELPSUMMARY SHORTNAME="Forums"> 

</SPAN> 

<P> 

<CFIF #COLLAPSE# EQ 0> 
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<CFINCLUDE TEMPLATE="srListForumThreads.cfm’’> 


<CFELSE> 

<!-Get all messages corresponding to selected foriam-> 

<CFQUERY DATASOURCE="#VARIABLES.gvDATASOURCE_CONFIG#" 
NAME="topic_query"> 

SELECT forumHeader_id, thread, parent, author, subject, email, host 
FROM tblForumHeaders 

WHERE forum_id = #URL.forum_id# and parent = 0 

ORDER by thread desc, parent 

</CFQUERY> 

<!- Get count of messages in threads and max date of thread -> 

<CFQUERY DATASOURCE="#VARIABLES.gvDATASOURCE_CONFIG#" 

NAME="count_query"> 

SELECT thread, count{*) as tcount, max( datein ) as date_ 

FROM tblForumHeaders 

WHERE forum_id = #URL.forum_id# 

GROUP by thread 
ORDER by thread desc 
</CFQUERY> 

<TABLE BORDER=0 WIDTH=100S> 

<TR CLASS="reportFieldLabel" ALIGN="left"> 

<TH ALIGN="center" NOWRAP>Topics</TH> 

<TH ALIGN="center" NOWRAP>Author</TH> 

<TH ALIGN="center" NOWRAP>Date</TH> 

</TR> 

<CFLOOP QUERY="topic_query"> 

<CFOUTPUT> 

<TR CLASS="reportFieldData#Iif( CurrentRow Mod 2,De( 'Even' ),De( 'Odd' 
) )#” ALIGN="left'' VALIGN=''top''> 

<TD><A CLASS="reportOptions'' 

HREF="#YARIABLES.mainFile#&action=read&forum_id=#URL.forum_id#&id=#foru 
inHeader_id#&thread=#thread#">#subject# 

(#count_guery.tcount[CurrentRow]#)</A></TD> 

<TD>#author#</TD> 

<TD>#DateFormat( count_query.date_[CurrentRow],'mm-dd-yyyy' )#</TD> 
</TR> 

</CFOUTPUT> 

</CFLOOP> 

</TABLE> 

</CFIF> 

<CFSET CLIENT.COLLAPSE = COLLAPSE> 

</TD> 

</TR> 

</TABLE> 

</CF SRWINTAB> 
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<CFELSEIF NOT COMPARENOCASE( URL.ACTION,"Read" )> 

<SCRIPT LANAGUAGE="javascript"> 

function quoteMessage() 

{ 

document. foruitiForm. body, value = document. forumForm. body, value + 
document.forumForm.hide.value; 
document.forumForm.hide.value=' 
doc^Jment. forumForm.body, focus () ; 

} 

</SCRIPT> 

<CFQUERY NAME="getRecordInfo" DATASOURCE="#VARIABLES.useSource#"> 

SELECT name 

FROM #VARIABLES.mainTable# 

WHERE #VARIABLES.idField# = #Evaluate( 'URL.' & VARIABLES.idField )# 
</CFQUERY> 

<!-select message-> 

<CFQUERY NAME="getMessage" DATASOURCE="#VARIABLES.useSource#"> 

SELECT author, sxabject, email, host, datein, body, parent, 

forum_id, h.forumHeader_id, h.thread, email reply 
FROM tblForumHeaders h, tblForumBody b ~ 

WHERE h.forumHeader_id = b.forumHeader_ID 
AND h.forumHeader_ID = #URL.id# ~ 

</CFQUERY> 

<CFSET text = #getMessage.body#> 

<CFSET convert_type = "fromHTML"> 

<CFINCLUDE TEMPLATE = "srMessageConvert.cfm"> 

<CFSET body_quote = #text#> 

<!- display appropriate header -> 

<CF_srWINTAB 

TABS="#getRecordInfo.name#" 

TOOLBAR="List Forums,Go To Top,New Topic,Search" 

TOOLBARLINKS— ^VARIABLES.mainFile#, ^VARIABLES.mainFile#&action=open&for 
um_id=#URL.forum_id#,iVARIABLES.mainFile#&action=newTopic&forum_id=#URL 
.forum_id#,#VARIABLES.mainFile#&action=search&forum id=#URL.forrnn id#" 
SYSTEM_TOOLBAR="Qoute Message,Post Reply" ~ 

SYSTEM_TOOLBARLINKS="j avascript:quoteMessage{),j avascript:document.foru 
mForm.submit()" 

> 

<TABLE BORDER=0 WIDTH=100%> 

<TR> 

<TD> 

<SPAN CLASS="winTab"> 

<CF_SRHELPSUMMARY SHORTNAME="Forums"> 

</SPAN> 
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<p> 

<TABLE BORDER=0 WIDTH=100%> 


<CFOUTPUT QUERY="getMessage"> 

<TR> 

<TD CLASS="winTabLabel">&nbsp;Subject:</TD> 

<TD CLASS="winTabField">&nbsp;#subject#</TD> 

</TR> 

<TR> 

<TD CLASS="winTabLabel">&nbsp;Author:</TD> 

<TD CLASS=”winTabField">&nbsp;<A CLASS="reportOptions" 
HREF="mailto:#RTrim( email )#?subject=#RTrim( subject )#">#RTrim( 
author )#</A></TD> 

</TR> 

<TR> 

<TD CLASS="winTabLabel”>&nbsp;Submitted:</TD> 

<TD CLASS="winTabField">&nbsp;#DateFormat( datein,'mm-dd-yyyy' )#</TD> 
</TR> 

<TR> 

<TD C0LSPAN=2>&nbsp;</TD> 

</TR> 

<TR> 

<TD CLASS="winTabLabel">&nbsp;Discussion:</TD> 

<TD>&nbsp;</TD> 

</TR> 

<TR> 


<TD CLASS=”winTabField" COLSPAN=2>#body#</TD> 

</TR> 

<TR> 

<TD COLSPAN=2>5=nbsp;<CFINCLUDE TEMPLATE="srListForumThreads.cfm"></TD> 
</TR> 

<TR> 

<TD C0LSPAN=2>&nbsp;</TD> 

</TR> 

<TR> 

<TD CLASS="winTabLabel”>&nbsp;Reply:</TD> 

<TD>&nbsp;</TD> 

</TR> 

<CFFORM ACTION="post.cfm" NAME="forumForm"> 

<INPUT NAME="forumHeader_id" TYPE="hidden" VALUE="#for\imHeader id#"> 


<INPUT NAME="thread" 

<INPUT NAME="forum_id" 

<INPUT NAME="parent" 

<INPUT NAME="date" 
VALUE="#datein#"> 

<INPUT NAME="subject" 
CompareNoCase( Left( subject,4 ) 
siobject ) )#"> 


TYPE="hidden" VALUE="#thread#"> 
TyPE="hidden" VALUE="#forum_id#"> 
TYPE="hidden" VALUE="#parent#"> 
TYPE="hidden" 

TYPE="hidden" VALUE="#Iif( 

' RE: ' ),De( 'RE: ' & subj ect ),De( 


<INPUT NAME="hide" TYPE="hidden" VALUE=" 

#RTrim( author )# wrote: 


#body_guote# 

”> 

<TR> 

<TD CLASS="winTabField" C0LSPAN=2> 
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<TEXTAREA CLASS="stdTextBox" COLS=100 ROWS=10 NAME="body" 
WRAP="sO ft"></TEXTAREA> 

</TD> 

</TR> 

</CFFORM> 

</CFOUTPUT> 

</TABLE> 

</TD> 

</TR> 

</TABLE> 

</CF_srWINTAB> 

</CFIF> 

PAGEHELP.CFM 

<SPAN CLASS="winTab"> 

<CF_srHELPSUMMARY shortName="HelpPage”> 

</SPAN> 

<CF_srPAGEOPTIONS NAME="Help"> 


PAGEHOME.CFM 
<CFIF #SESSION.FirstOn#> 
<CF_getGREETING><BR><BR> 
</CFIF> 

<TABLE BORDER=0 WIDTH=100%> 


<TR VALIGN="top"> 

<TD WIDTH=50%> ■ 

<CF_srDIALOGWINDOW TITLE="Information"> 
<CFINCLUDE TEMPLATE="getInformation.cfm"> 
</CF_srDIALOGWINDOW> 

</TD> 

<TD WIDTH=50%> 

<CF_srDIALOGWINDOW TITLE="My Security"> 
<CFINCLUDE TEMPLATE="getSecurity.cfm"> 

</CF_srDlALOGWINDOW> 

</TD> 

</TR> 

<TR> 

<TD COLSPAN=2 VALIGN="middle" ALIGN="center"> 
<BR> 

<HR CLASS="standard" WIDTH=75% SIZE=1 NOSHADE> 
</TD> 

</TR> 

<TR> 

<TD COLSPAN=2 VALIGN="top"> 
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<CF_srPAGEOPTIONS NAME="Home"> 
</TD> 

</TR> 

</TABLE> 


PAGELOGOEF.CFM 


<CFSET StructDelete(Session, 
<CFSET StructDelete(Session, 
<CFSET StructDelete(Session, 
<CFSET StructDelete(Session, 
<CFSET StructDelete(Session, 
<CFSET StructDelete(Session, 
<CFSET StructDelete(Session, 
<CFSET StructDelete(Session, 
<CFSET StructDelete(Session, 


"InitializeThis”)> 

"loginid”)> 

"LastLogOn")> 

”Firston")> 
"LogOnAttempts”) > 
"LogSequence”)> 
"showPanel”)> 
"deskTop")> 
"colors”)> 


<CFLOCATION URL-"index.htm”> 


PAGEPERSQNALIZE.CFM 

<SPAN CLASS="winTab"> 

<CF_srHELPSUMMARY shortNaine="Personalize" 

Page="#aComponent[URL.alD][cAPPLICATION][cAPPLICATION_NAME]#"> 
</SPAN> 

<CF_srPAGEOPTIONS NAME="Personali 2 e"> 


PAGEPRQFILES.CFM 


<CFPARflM NAME="URL.action" DEFAULT="View"> 

<CFSET MAINFILE = "main. cfin?a=profiles&body=pageProfiles.cfni"> 
<CFSET USESOURCE = "iVARIABLES.gvDATASOURCE_DATA#"> 

<CFIF NOT #CompareNoCase( URL.action,"saveNew" )#> 

<CFQUERY NAME="getFieldInfo" 

DATASOURCE="#VARIABLES.gvDATASOURCE_CONFIG#"> 

SELECT tblProfileFields.pfName 

FROM tblProfileFields INNER JOIN {tblProfileGroups INNER JOIN 
tblLinkFieldToProfile ON tblProfileGroups.pg id = 
tblLinkFieldToProfile.pg_id) ON tblProfileFields.pf_id = 
tblLinkFieldToProfile.pf_id 

WHERE tblProfileGroups.pg_id = #URL.pg_id# 

</CFQUERY> 

<CFINSERT DATASOURCE="iVARIABLES.gvDATASOURCE_DATA#" 
TABLENAME="#FORM.tableName#" FORMFIELDS="#ValueList{ 
getFieldInfo.pfName )#"> 

<CFLOCATION URL="#VARIABLES.mainFile#&#URL.pg_id#"> 
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</CFIF> 


<CFQUERY NAME="getProfiles" 

DATASOURCE="#VARIABLES.gvDATASOURCE_CONFIG#"> 

SELECT Pg_i<i,pgName,pgLabel,’#VARIABLES.mainFile#&pg id=' & pg id 

AS idURL ~ ~ 

FROM tblProfileGroups 
ORDER BY pgName 

</CFQUERY> 

<CFIF IsDefined( ”URL.pg_id" )> 

<CFSET var_pg_id = #URL.pg_id#> 

<CFSET tabSelected = #ListFind( ValueList( getProfiles.pg id ), 
URL.pg_id )#> 

<CFELSE> 

<CFSET var_pg_id = #getProfiles.pg_id[l]#> 

<CFSET tabSelected = 1> 

</CFIF> 

<CFSET FORMACTION = 

"#VARIABLES.mainFile#&action=saveNew&pg id=#VARIABLES.var pg id#"> 
<CFSET FORMNAME = "profiles"> ~ 

<!- display appropriate header -> 

<CF_srWinTab 

TABS="#ValueList( getProfiles.pgLabel )#" 

TABURL="#ValueList( getProfiles.idURL )#" 

TABSELECTED="#VARIABLES.tabSelected#" 

SYSTEM_TOOLBAR="Save" 

SYSTEM_TOOLBARLINKS=" javascript: docximent. #VARIABLES. fonoName#. submit () ” 
BASEURL="#VARIABLES.mainFile#" 


<TABLE BORDER=0 WIDTH=100%> 

<TR> 

<TD> 

<SPAN CLASS="winTab"> 

<CF_srHELPSIIMMARY SHORTNAME= "profiles"> 
</SPAN> 

<P> 

<CFQUERY NAME=”getProfileInfo" 

DATASOURCE="#VARIABLES.gvDATASOURCE_CONFIG#"> 

SELECT * 

FROM tblProfileGroups 

WHERE pg_id = #VARIABLES.var_pg_id# 

</CFQUERY> 

<CFQUERY NAME="getFieldInfo” 

DATASOURCE="#VARIABLES.gvDATASOURCE CONFIG#"> 
SELECT tblProfileFields.* 
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FROM tblProfileFields INNER JOIN (tblProfileGroups INNER JOIN 
tblLinkFieldToProfile ON tblProfileGroups.pg_id = 
tblLinkFieldToProfile.pg_id) ON tblProfileFields*pf_id = 
tblLinkFieldToProfile.pf_id 

WHERE tblProfileGroups.pg_id = #getProfileInfo.pg_id#; 

</CFQUERY> 

<CFSET NumberOfltems = #getFieldInfo.RecordCount#> 

<CFSET NumberOfRows = #Iif( getProfileInfo.pgLayoutCols EQ 
2,NumberOfltems,Ceiling( NumberOfltems / 2 ) ) #> 

<CFSET ItemNuinberToDisplay_hdr = 0> 

<CFFORM ACTION="#VARIABLES.forinAction#" NAME==”#VARIABLES . forinName#"> 
<TABLE BORDER=0 WIDTH=100%> 

<CFOUTPUT> 

<INPUT TYPE="hidden" NAME="tableName” 

VALXJE="tbl#getProfileInfo .pgName#”> 

</CFOUTPUT> 

<!-how many row sections to display?-> 

<CFLOOP INDEX=”RowCounter” FR0M="1” TO="#VARIABLES.NumberOfRows#”> 

<TR VALIGN=”top”> 

<CFLOOP INDEX=”ColumnCounter” FR0M=”1” 

TO=”#getProfileInfo.pgLayoutCols#” STEP=”2"> 

<CFSET VARIABLES.ItemNumberToDisplay_hdr = #Evaluate( 

VARIABLES.ItemNumberToDisplay_hdr + 1 )#> 

<CFOUTPUT> 

<CFIF VARIABLES .NumberOfltems - VARIABLES . ItemNuinberToDisplay__hdr GTE 
0 > 

<TD CLASS="winTabField”><CFIF 

#getFieldInfo.pfRequiredField[VARIABLES.ItemNumberToDisplay_hdr]#>*</CF 
IF><B>#getFieldInfo.pfLabel[VARIABLES.ItemNumberToDisplay^hdr]#;</B></T 
D> 

<TD CLASS="winTabField">&nbsp; 

<CFSWITCH 

EXPRESSION=”#getFieldInfo .pfType [VARIABLES. ItemNumberToDisplay__hdr] #”> 

<!-TEXT-> ^ 

<CFCASE VALUE="1"> 

<INPUT CLASS-"stdTextBox” TYPE="text” 

NAME=”#getFieldInfo-pfName [VARIABLES. IteinNumberToDisplay_hdr] #” 
SIZE=”20" 

MAXLENGTH=”#getFieldInfo.pfSize [VARIABLES. ItemNumberToDisplay^hdr] #” 
onFOCUS="setStatus{ 

* #getFieldInfo.pfHelpMessage[VARIABLES.ItemNumberToDisplay_hdr]# * )” 
onBLUR="setStatus( '’ )"> 

</CFCASE> 

<!-BOOLEAN-> 

<CFCASE VALUE="2”> 

<INPUT NAME=”#getFieldInfo.pfName[VARIABLES.ItemNumberToDisplay^hdr]#” 
TYPE="radio” VALUE-"!” onFOCUS="setStatus( 

’#getFieldInfo.pfHelpMessage[VARIABLES.ItemNumberToDisplay^hdr]#’ )” 
onBLUR=”setStatus( ’’ )”>Yes 
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<INPUT NAME="#getFieldInfo.pfName[VARIABLES.ItemNimberToDisplay hdr]#" 
TYPE="radio" VALUE="0" onFOCUS="setStatus( 

.pfHalpMassaga[VARIABLES,IteniNuint)© 2 rToDisplay ]idir][[’ )” 
onBLUR="setStatus( ’' )">No ~ 

</CFCASE> 

<!-DATE-> 

<CFCASE VALUE="3"> 

<INPUT CLASS="stdTextBox" TYPE="text" 

NAME="#getFieldInfo.pfName[VARIABLES.ItemNumberToDisplay hdr]#" 
SIZE="10" MAXLENGTH="10” onFOCUS="setStatus{ 

^fgetF^eldInfo.pfHelpMessage[VARIABLES.ItemNuinbarToDisplay hdr]#' )" 
onBLUR="setStatus( '' )~ 

</CFCASE> 

<!-NUMBER-> 

<CFCASE VALUE="4"> 

<INPUT CLASS=’'stdTextBox" TYPE="text" 

NAME="#getFieldInfo.pfName[VARIABLES.ItemNumberToDisplay hdr]#" 
SIZE="5" MAXLENGTH="5" onFOCUS="setStatus( 

^^stFieldlnfo.pfHelpMessage[VARIABLES.ItemNumberToDisplay hdr]#' )" 
onBLUR="setStatus{ '' )"> “ 

</CFCASE> 

<!-MEMO-> 

<CFCASE VALUE="6"> 

<TEXTAREA CLASS="stdTextBox" COLS=30 R0WS=3 

NAME=''#getFieldInfo.pfName [VARIABLES. ItemNumberToDisplay hdr]#" 
WRAP="soft" onFOCUS="setStatus( “ 

'#getFieldInfo.pfHelpMessage[VARIABLES.ItemNumberToDisplay hdr]#' )" 

onBLUR="setStatus( '' )"></TEXTAREA> ~ 

</CFCASE> 

</CFSWITCH> 

</TD> 

<CFELSE> 

<TD CLASS="winTabField" COLSPAN=2>&nbsp;</TD> 

</CFIF> 

</CFOUTPUT> 

</CFLOOP> 

</TR> 

</CFLOOP> 

</TABLE> 

</CFFORM> 

</TD> 

</TR> 

</TABLE> 

</CF srWinTab> 


PAGETOOLSCFM 

<SPAN CLASS="winTab"> 

<CF_srHELPSUMMARY shortName="ToolsPage"> 
</SPAN> 
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<CF srPAGEOPTIONS NAME=’'Tools"> 


9. SET INFORMATION FILES 
SETUSERINFORMATION.CFM 

<CFINCLUDE TEMPLATE="getProgramDefaults.cfm"> 

<CFQUERY NAME="setUserInformation" 

DATASOURCE="#VARIABLES.gvDATASOURCE_USER#"> 

UPDATE tblUserAccounts 

SET 

<CFLOOP INDEX="counter" FR0M="1" TO="#ListLen( ATTRIBUTES.fields,' 
)#"> 

#ListGetAt( ATTRIBUTES.fields,counter )# = *#ListGetAt( 

ATTRIBUTES.values,counter )#' #Iif( counter NEQ ListLen{ 

ATTRIBUTES.fields ),De( ),De{ " ) )# 

</CFLOOP> 

WHERE user_loginid = '#ATTRIBUTES.user#' 

</CFQUERY> 

10. SUBROUTINE FILES 
SRADDBODYQPTION.CFM 


<CFASSOCIATE BASETAG="cf_srCreateBodyOption" 
DATACOLLECTION="optionList"> 

SRCREATEBODYOPTION.CFM 

<CFIF ThisTag.ExecutionMode IS ”Start”> 

<STYLE TYPE=”text/css”> 

A. optionLink:link 

{ 

color: black; 
text-decoration: none; 
font-size: lOpt; 
font-weight: bold; 

} 

A. optionLink:active 

{ 

color: black; 
text-decoration: none; 
font-size: lOpt; 
font-weight: bold; 

} 


A.optionLink:visited 

{ 
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color: black; 
text-decoration: none; 
font-size: lOpt; 
font-weight: bold; 

} 

A. optionLink:hover 

{ 

color: black; 

text-decoration: underline; 
font-size: lOpt; 

} 

TD.optionBody 

{ 

font: lOpt Tahoma, Verdana, Arial; 
color: blue; 

} 

</STYLE> 

<!- only process when end tag is reached -> 

<CFELSEIF ThisTag.ExecutionMode IS "End"> 

<!- default parameters -> 

<CFPARAM NAME="ATTRIBUTES.MaxItemsPerRow" DEFAULT="2"> 

<!-get total number of items created-> 

<CFSET NumberOfItems = #ArrayLen( ThisTag.optionList )#> 

<CFSET NumberOfRows = #Ceiling( VARIABLES.NumberOfItems / 

ATTRIBUTES.MaxItemsPerRow )#> 

<CFSET ItemNumberToDisplay_hdr = 0> 

<CFSET ItemNiimberToDisplay_ftr = 0> 

<TABLE BORDER=0 WIDTH=100% CELLSPACING=4> 

<!- add some space if necessary -> 

<TR> 

<CFOUTPUT> 

<TD COLSPAN="#Evaluate( VARIABLES.NumberofIterns * 2 )#">&nbsp;</TD> 
</CFOUTPUT> 

</TR> 

<!- how many row sections to display? -> 

<CFLOOP INDEX="RowCounter” FR0M="1" TO="#VARIABLES.NumberOfRows#"> 

<!-add titles-> 

<TR VALIGN="top"> 

<CFLOOP INDEX="ColumnCounter" FR0M="1" 

T0="tATTRIBUTES.MaxItemsPerRow#”> 

<CFSET VARIABLES.ItemNumberToDisplay_hdr = #Evaluate( 

VARIABLES.ItemNumberToDisplay_hdr + 1 )#> 

<CFOUTPUT> 

<CFIF VARIABLES.NumberofIterns - VARIABLES.ItemNumberToDisplay_hdr GTE 
<TD VALIGN="top" ALIGN="left" 

WIDTH=''#Evaluate (100/ATTRIBUTES.MaxItemsPerRow) #%’'><A 
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CLASS="optionLink" 

HREF="#ThisTag.optionList [VARIABLES. IteinNuinberToDisplay_hdr] .url#"><FON 
T FACE="Arial,sans" 

SIZE="3"><B>#ThisTag.optionList[VARIABLES.ItemNuinberToDisplay_hdr].titl 
e#</B></FONT></A></TD> 

<CFELSE> 

<TD WIDTH="#Evaluate(100/ATTRIBUTES.MaxItemsPerRow)#%">&nbsp;</TD> 
</CFIF> 

</CFOUTPUT> 

</CFLOOP> 

</TR> 

<!-add option text-> 

<TR> 

<CFLOOP INDEX=”ColuinnCounter" FR0M="1" 

TO="#ATTRIBUTES.MaxItemsPerRow#"> 

<CFSET VARIABLES. IteinNuinberToDisplay_ftr = #Evaluate ( 

VARIABLES. IteinNuinberToDisplay_f tr + 1 ) #> 

<CFOUTPUT> 

<CFIF VARIABLES.NumberofItems - VARIABLES.IteinNumberToDisplay_ftr GTE 
0 > 

<TD CLASS="optionBody" VALIGN="top" 

WIDTH="#Evaluate(100/ATTRIBUTES.MaxItemsPerRow)#%">#ThisTag.optionList[ 
VARIABLES.ItemNimberToDisplay_ftr].text#</TD> 

<CFELSE> 

<TD WIDTH="#Evaluate(100/ATTRIBUTES.MaxItemsPerRow)#%’'>&nbsp;</TD> 
</CFIF> 

</CFOUTPUT> 

</CFLOOP> 

</TR> 

<TR> 

<CFOUTPUT> 

<TD COLSPAN="#Evaluate( VARIABLES.NimberofItems * 2 )#">&nbsp;</TD> 
</CFOUTPUT> 

</TR> 

</CFLOOP> 

</TABLE> 

</CFIF> 


SRDIALQGWINDOW.CFM 


<cfsetting enablecfoutputonly="yes"> 

<!- NAME: CF_ACTIVETABLE 

Activefeedback.com 2000 
http://www.activefeedback.com 
Email: support@activefeedback.com 
Phone: 408-230-4444 

-> 

<!- Default width of the window -> 
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<cfparain naiiie="attributes.width" default=" 100 %"> 

<! Default height of the window -> 

<cfparam name="attributes.height" default=""> 

<!- Default table cellpadding -> 

<cfparain nam.e="attributes.cellpadding" default="0"> 

<! Default table cellspacing -> 

<cfparam name="attributes.cellspacing" default="0"> 

<!- Default table border -> 

<cfparam name="attributes.border" default="0"> 

<! Default window header height -> 

<cfparam narcie="attributes.headerheight" default=" 14 "> 

<!- Default header font -> 

<cfparam narae="attributes.headerfont" default="<font 
face=verdana,arial,helvetica color=ffffff si 2 e=l>"> 

<!- Background color of the header -> 

<cfparam name="attributes.headerbgcolor" default="midnightblue"> 

<!- Background color of the form itself -> 

<cfparam name="attributes.bodybgcolor" default="buttonface"> 

<!- Default Form title -> 

<cfparam name="attributes.title" default=""> 

<!- Allow scrolling of the internal layer -> 

<cfparam name="attributes.scroll" default=”false"> 

<!- Default minimize parameter -> 

<cfparam name="attributes.minimize" default="false"> 

Random container parameter necessary to control layers -> 

<cfparam name="attributes.containerid" 
default="#randrange(111111111, 999999999)#"> 

<cfswitch expression="#thistag.executioniaode#"> 

<!-start tag processing-> 

<cfcase value='start'> 

<cfoutput> 

<script language=jscript> 

<! — 

function change_d#attributes.containerid#() { 
if (c#attributes.containerid#.style.display == "") { 
c#attributes.containerid#.style.display = "none"; 

else{ 

c#attributes.containerid#.style.display= ""; 

} 

—> 

</script> 

<div style="{ padding-left : 3; padding-right : 3; padding-top ; 2; 
padding-bottom : 5; background-color : buttonface; border-style : 
outset; border-width : thin; width;#attributes.width#; <cfif 
len(attributes.height)>height:#attributes.height#; </cfif>} "> 

<table width="#attributes.width#" 
cellpadding="#attributes.cellpadding#" 

cellspacing="#attributes.cellspacing#" border="#attributes.border#"> 
<tr bgcolor="#attributes.headerbgcolor#"> 

<td CLASS="adWindowTitle" height="#attributes.headerheight#"> 
&nbsp;<b>#attributes.title#</b> 

</td> 
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<tcl CIiASS="adWindowTitle" align="right" 

height="#attributes.headerheight#" valign="middle" nowrap> 

<button onclick="change_d#attributes.containerid#0" style=" height: 
15px; width: 15px; cursor : hand; line-height : 3;"></button> 

</td> 

</tr> 

</table> 

<!- switch default layer at the click of a button -> 

<cfif attributes.minimize> 

<div id="c#attributes.containerid#" 

style="position:relative;top:0;left:0; display: none;"> 

<cfelse> 

<div id="c#attributes.containerid#" 

style="position:relative;top:0;left:0; display: <cfif 

attributes•scroll>overflow : scroll;</cfif» 

</cfif> 

<table width="#attributes.width#" cellpadding="5" 

cellspacing="#attributes.cellspacing#" border="#attributes.border#"> 
<tr><td CLASS="adWindowBody"> 

</cfoutput> 

</cfcase> 

<cfcase value='end'> 

<!-end tag processing-> 

<cfoutput> 

</td></tr></table> 

</div> 

</div> 

</cfoutput> 

</cfcase> 

</cfswitch> 

<cfsetting enablecfoutputonly="no"> 

SRERRORMONITOR.CFM 

<CFPARAM NAME="ATTRIBUTES.ERROR_CODE" DEFAULT="None"> 

<CFPARAM NflME="ATTRIBUTES.SQLSTATE" DEFAULT="None"> 

<CFINCLUDE TEMPLATE="getProgramDefaults.cfm"> 

<!- if admin email, then email -> 

<!- if developer email, then email -> 

<CFTRANSACTION> 

<CFQUERY DATASOURCE="#VARIABLES.gvDATASOURCE_CONFIG#"> 

INSERT INTO tblErrors ( 

detail,message,NavtiveErrorCode,SQLState,Type,dateTimeofError,error use 
r,error_ip ) ' ~ 

VALUES ( 

'#ATTRIBUTES.detail#',’#ATTRIBUTES.message#', '#ATTRIBUTES.Error_Code#', 
’#ATTRIBUTES.SQLState#’,'#ATTRIBUTES.Type#',#CreateODBCDate{ Now() 

)#,'#ATTRIBUTES.user#','#ATTRIBUTES.ip#' ) 
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</CFQUERy> 


<CFQUERY NAME="getErrorID" 

DATASOURCE="#VARIABLES.gvDATASOURCE_CONFIG#"> 

SELECT Max( error_id ) AS errorid 

FROM tblErrors 

</CFQUERY> 

</CFTRANSACTION> 

<CFLOCATION 

URL="main. cfm?body=pageError. cfiri&error_id=#getErrorID. errorid#"> 


SRFEEDBACK.CFM 

<CFLOCATION 

URL="inain. cfia?body=pageFeedback. cfm&type=#ATTRIBUTES. type#"> 


SRLINKFINDER.CFM 

<!- 


Utility; ColdFusion LinkFinder vl.O 

Author: Dain Anderson 

Email: dain_anderson@yahoo.com 

Latest Version: http://www.cfcomet.com/ 


Contributor(s): 

Michael Dinowitz (mdinowit@houseoffusion.com) for his example of 
email RegEx usage in Fusion Authority Weekly News Alert #38. 

-> 

<CFPARAM NAME="Attributes.Data" DEFAULT=""> 

<CFIF NOT LEN(Attributes.Data) XBXFONT COLOR="FFOOOO">Error: No data 
to parse !</FONTX/BXBRX/CFIF> 

<CFSCRIPT> 

this = Attributes.Data; 

this = REReplaceNoCase (this, "([^.*]) ((ht|f) (tps?:\/\/*) ( [■' 

I;I,i<l>l##1""I:I[:cntrl:]]*))", "\i<a STYLE=""text-decoration; 

underline"" TARGET=""_blank"" HREF=""\2"">\2</A>", "ALL"); 

this = REReplaceNoCase(this, "(([[:alnum:]][-a-zA-ZO- 

9_%\.]*)?[[;alnum:]]@[[:alnum:]][-a-zA-Z0-9%\>.]*\.[[:alpha:]]{2,})", 

"<A STYLE=""text-decoration: underline"" HREF=""mailto-\1"">\1</A>" 

"ALL"); 

</CFSCRlPT> 

<CFOUTPUT>#ParagraphFormat(this)#</CFOUTPUT> 


SRLISTFORUMTHREADS.CFM 

<TABLE BORDER=0 WIDTH=100% cellspacing="0" cellpadding="0”> 
<CFPARAM NAME = "admin" DEFAULT="0"> 
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<CFQUERY NAME="thread_query” 

DATASOURCE="#VARIABLES. gvDATASOURCE_CONFIG#”> 

SELECT forviinHeader_id, thread, parent, author, subject, 

host, datein 

FROM tblForumHeaders 

WHERE 0=0 

<CFIF IsDefined( "URL.thread” )> 

AND thread = #URL.thread# 

ORDER BY parent, datein desc 
<CFELSE> 

AND forum_id = #URL.forum_id# 

ORDER BY thread desc, parent, datein desc 
</CFIF> 

</CFQUERY> 

<1 -place topics data into ”threads" struct-> 

<CFSET threads = ArrayNew( 1 )> 

<!- form "threads" array of sructure -> 

<CFLOOP QUERY = "thread_query"> 

<CFSCRIPT> 

threads[CurrentRow]=StructNew(); 

Structinsert(threads[CurrentRow], "id”, 
thread_query.forumHeader_id[CurrentRow]); 

Structinsert(threads[CurrentRow], "thread", 
thread_query.thread[CurrentRow]); 

Structinsert(threads[CurrentRow], "parent", 
thread_query.parent[CurrentRow]); 

Structinsert(threads[CurrentRow], "author", 
thread_query.author[CurrentRow]); 

Structinsert(threads[CurrentRow], "subject", 
thread^query.subject[CurrentRow]); 

Structinsert(threads[CurrentRow], "email", 
thread_query.email[CurrentRow]); 

Structinsert(threads[CurrentRow], "host", 
thread_query.host[CurrentRow]); 

Structinsert(threads[CurrentRow], "date", 
thread_query.datein[CurrentRow]); 

</CFSCRIPT> 

</CFLOOP> 

<CFSET count = #thread_query.RecordCount#> 

<!- "lines" is array of branches in tree -> 

<CFSET lines = ""> 

<TR CLASS="reportFieldLabel" ALIGN="left"> 

<TH ALIGN="center" NOWRAP>Topics</TH> 

<TH ALIGN="center" NOWRAP>Author</TH> 

<TH ALIGN="center" NOWRAP>Date</TH> 

</TR> 


email. 
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<CFSET i = 1> 


<CFLOOP CONDITION=”not count is 0"> 

<CFIF IsDefined( "URL.id" )> 

<CFSET qlD = #URL.id#> 

<CFELSE> 

<CFSET qlD = 0> 

</CFIF> 

<!- draw one branch (thread) -> 

<cfmodule template="topic.cfm" i="#i#" id=”#qID#" 
forum_id="#URL.forum_id#" count="#count#" threads="#threads#" 
lines="#lines#" admin="#adinin#" mainFile="#VARIABLES.mainFile#"> 

<!-find next thread-> 

<CFLOOP INDEX=="j" FROM="#Evaluate(i+l)#" TO="#count#"> 

<CFIF NOT THREADS[I].THREAD IS THREADS[J].THREAD> 

<!- web find it - break -> 

<CFSET I=I+1> 

<CFBREAK> 

</CFIF> 

<CFSET I=I+1> 

</CFLOOP> 

<!-the end-> 

<CFIF J-1 IS COUNT> 

<CFBREAK> 

</CFIF> 

</CFLOOP> 

</TABLE> 


SRMESSAGECOVERTCFM 

<cfparam name="text” default=""> 

<cfparam name="convert_type" default="toHTML"> 

<cfif convert_type is "toHTML"> 

<cfscript> 

/* patterns which must replaced */ 

url_patterns = "http://[[:alpha:]0-9\._/?&amp;=]+,ftp://[[:alpha:]0- 
9\._/?&amp;=]+,mailto:[[:alpha:]0-9\._/?&amp;=]+@[[:alpha:]0-9\.]+"; 

/* tags which leave unchanged */ 

pi = "<i>,</i>,<i>,</i>,<b>,</b>,<b>,</b>"; 

p2 = ReplaceList(pi, "%%,%%”) & ",%%br%%"; 

p3 = pi «= ",<br>"; 

pi = pi & & Chr(13) & Chr(lO); 

/* masking tags enumerated on pi from HTMLEditFormat */ 
text = ReplaceList(text, pi, p2); 
text = HTMLEditFormat(text); 

V* Restore pi tags */ 
text = ReplaceList(text, p2, p3); 
for (i=l; i Ite ListLen(url_patterns); i=i+l) { 

/* get pattern from list*/ 
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url_pattern = ListGetAt{url_patterns, i); 

/* get position of occurrence */ 
f = REFindNoCase(url_pattern, text, 1, "TRUE"); 
while (f.pos[l] neq 0) { 

/* get url from founded construction */ 
url = Mid(text, f.pos[l], f.len[l]); 

/* masking ":" */ 
url = REReplace(url, 

/* Convert urls */ 

if (Left(url, 6) is "mailto") { 

/* if "mailto:" - place url text without "mailto:" */ 
text = REReplace(text, url_pattern, 

"<a href='#url#'>#Right(url, Len(url)-8)#</a>"); 

} else { 

text = REReplace(text, url_pattern, 

"<a href='#url#'>#url#</a>"); 

} 

/* get next occurrence */ 

f = REFindNoCase(url_pattern, text, f.pos[l]+l, "TRUE"); 

} 

} 

/* Restore ":" in urls */ 

text = Replace(text, Chr(38) & "amp;", Chr(38), "ALL"); 
text = REReplace(text, "ALL"); 

</cfscript> 

</cfif> 

<cfif convert_type is "fromHTML"> 

<cfscript> 

pi = "<i>,</i>,<i>,</i>,<b>,</b>,<b>,</b>"; 

text = REReplace(text, "<a href='mailto:[^>]+>", "mailto:", "ALL"); 

text = REReplace (text, "<a[''>]+>", "", "ALL"); 

text = REReplace(text, "</a>", "", "ALL"); 

text = Replace(text, "<br>", Chr(13) & Chr(lO), "ALL"); 

</cfscript> 

</cfif> 


SRPAGEOPTIONS.CFM 


<CFINCLUDE TEMPLATE="getProgramDefaults.cfm”> 

<CFQUERY NAME="getPageStructure" 
DATASOURCE="#VARIABLES. gvDATASOURCE_CONFIG#"> 

SELECT * 

FROM tblPageOptions 

WHERE po_name = '#ATTRIBUTES.Name#' 

</CFQUERY> 

<CFQUERY NAME="getPageOptions" 
DATASOURCE="#VARIABLES. gvDATASOURCE_CONFIG#"> 

SELECT tblPageOptionlterns.* 
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FROM ( tblLinkOptionsToPage INNER JOIN tblPageOptionltems ON 
tblLinkOptionsToPage.poi_id = tblPageOptionltems.poi_id ) INNER JOIN 
tblPageOptions ON tblLinkOptionsToPage.po_id = tblPageOptions.po id 
WHERE tblPageOptions.po_name = 'fATTRIBUTES.Name#' ~ 

</CFQUERY> 


<CF_srCREATEBODyOPTION MAXITEMSPERROW="#getPageStructure.po_columns#"> 

<CFLOOP QUERY="getPageOptions"> 

<CF_srADDBODYOPTION 
TITLE="#getPageOptions.poi_title#" 

URL="#getPageOptions.poi_url#" 

TEXT="#Iif( getPageStructure.po showText,De{ getPageOptions.poi text 
),De( " ) )#" “ - 


</CFLOOP> 

</CF_s rCREATEBODYOPTION> 


SRREPORTENGINE.CFM 


<CFINCLUDE TEMPLATE="getProgramDefaults.cfm"> 
<CFIF CGI.querystring EQ ""> 


<CFPARAM NAME="ATTRIBUTES.includeOptions" 
<CFPARAM NAME="ATTRIBUTES.OptionList" 

<CFPARftM NAME="ATTRIBUTES.OptionLink" 

<CFPARAM NAME="ATTRIBUTES.headerType" 

<CFPARAM NAME="ATTRIBUTES.addWhere" 

<CFPARAM NAME="ATTRIBUTES.addTitle" 

<CFPARAM NAME="ATTRIBUTES.addOptionParam" 
<CFPARAM NAME="ATTRIBUTES.toolBar" 

<CFPARflM NAME="ATTRIBUTES.toolBarLinks" 
<CFPARAM NAME="ATTRIBUTES.system_toolBar" 
<CFPARAM NAME="ATTRIBUTES.system toolBarLinks" 


DE FAULT="Fa1se"> 
DEFAULT=""> 
DEFAULT=""> 
DEFAULT="Basic"> 
DEFAULT=""> 
DEFAULT=""> 
DEFAULT=""> 

DEFAULT=""> 
DEFAULT=""> 
DEFAULT=""> 

DEFAULT=""> 


<CFSET rptName = "#ATTRIBUTES.name#"> 

<CFSET rptAction = "#ATTRIBUTES.action#"> 

<CFSET rptOptions = "#Iif( ATTRIBUTES.includeOptions,true,lif{ 
ATTRIBUTES.optionList NEQ true,false ) )#"> 

<CFSET rptOptionList = "#ATTRIBUTES.optionList#"> 

<CFSET rptOptionLink = "#ATTRIBUTES.optionLink#"> 

<CFSET rptHeaderType = "#ATTRIBUTES.headerType#"> 

<CFSET rptImageDir = "#VARIABLES.gvIMAGE_DIRECTORY#"> 

<CFSET rptAddWhere = "#ATTRIBUTES.addWhere#"> 

<CFSET rptAddTitle = "#ATTRIBUTES.addTitle#"> 

<CFSET rptAddOptionParam = ”#ATTRIBUTES.addOptionParam#"> 

<CFSET rptToolBar = "#ATTRIBUTES.toolBar#"> 

<CFSET rptToolBarLinks = "#ATTRIBUTES.toolBarLinks#"> 

<CFSET rptSystem_ToolBar = ”#ATTRIBUTES.System_toolBar#"> 

<CFSET rptSystem_ToolBarLinks = "#ATTRIBUTES.System_toolBarLinks#"> 
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<CFELSE> 


<CFSET rptName = "#URL.naiae#"> 

<CFSET rptAction = "#URL.action#"> 

<CFSET rptOptions = "#URL.includeOptions#"> 

</CFIF> 

<CFIF VARIABLES.rptAction EQ "List"> 


<CFELSEIF VARIABLES.rptAction EQ "Run"> 

<!- get report information -> 

<CFQUERY NAME="getReportInfo" 

DATASOURCE="iVARIABLES.gvDATASOURCE_CONFIG#"> 

SELECT 

report_ID,sqlBody,reportName,shortName,idField, useDataSource 
FROM tblReports 

WHERE ShortName = '#VARIABLES.rptName#' 

</CFQUERY> 

<CFSET rptSqlBody = #PreserveSingleQuotes( getReportInfo.sqlBody )#> 

<!- check to see if additional information has been added to query 

-> 

<CFIF VARIABLES.rptAddWhere NEQ ""> 

<CFSET otherClause = Find( "ORDER BY",VARIABLES.rptSqlBody )> 

<CFIF OtherClause EQ 0> 

<CFSET OtherClause = Find( "GROUP BY",VARIABLES.rptSqlBody )> 

<CFIF OtherClause EQ 0> 

<CFSET OtherClause = Find( "HAVING",VARIABLES.rptSqlBody )> 

</CFIF> 

</CFIF> 

<!- see if there is a WHERE clause -> 

<CFIF VARIABLES.rptSqlBody CONTAINS "where"> 

<CFIF otherClause NEQ 0> 

<CFSET rptSqlBody = Insert( " AND " & VARIABLES.rptAddWhere & " 

",rptSqlBody,OtherClause - 1 )> 

<CFELSE> 

<CFSET rptSqlBody = Insert( " AND " & 

VARIABLES.rptAddWhere,rptSqlBody,Len{ rptSqlBody ) )> 

</CFIF> 

<CFELSE> 


<CFIF OtherClause NEQ 0> 



VARIABLES.rptAddWhere & 


<CFSET rptSqlBody = Insert( " WHERE " & 
",rptSqlBody,otherClause - 1 )> 

<CFELSE> 

<CFSET rptSqlBody = Insert( " WHERE " & 
VARIABLES.rptAddWhere,rptSqlBody,Len( rptSqlBody ) )> 

</CFIF> 

</CFIF> 

</CFIF> 

<1 - 5 QL to gather report data-> 

<CFQUERY NAME="getReportData" DATASOURCE="#Evaluate{ 
'VARIABLES.gvDATASOURCE_’ & getReportInfo.useDataSource )#"> 

#PreserveSingleQuotes( VARIABLES.rptSqlBody )# 

</CFQUERY> 

<CFIF NOT #CompareNoCase( ATTRIBUTES.headerType,"ListOnly" )#> 


<CFINCLUDE TEMPLATE="srReportEngineBody.cfr[i"> 

<CFELSE> 

<!-display appropriate header-> 

<CF_srWinTab 

TABS="#Ucase( getReportInfo.reportName )#&nbsp;#VARIABLES.rptAddTitle#” 
TABSELECTED="1" 

TOOLBAR="#VARIABLES.rptToolBar#" 

TOOLBARLINKS="#VARIABLES.rptToolBarLinks#" 

SYSTEM_TOOLBAR="#VARIABLES.rptSystem_ToolBar#" 
SYSTEM_TOOLBARLINKS="#VARIABLES.rptSystem ToolBarLinks#” 

> ~ 

<CFINCLUDE TEMPLATE="srReportEngineBody.cfm"> 

</CF_srWinTab> 

</CFIF> 

</CFIF> 


SRSTOCKGRABBER.CFM 

CF_StockGrabber 
StockGrabber.cfm 
09/20/1997 
06/02/1998 
2.0 

Rob Bilson (rbils8amkor.com) 

Copyright (C) 1997-1998 by Rob Bilson, All Rights 


NAME: 

FILE: 

CREATED: 

LAST MODIFIED: 
VERSION: 
AUTHOR: 
COPYRIGHT: 
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This program is free software; you can redistribute it 
and/or modify it under the terms of the GNU General Public 
License as published by the Free Software Foundation; 
either version 2 of the License, or any later version. 

<cfif isdefined(’attributes.ErrorCheck')> 

<CFIF #Attributes.ErrorCheck# IS "Yes"> 

<CFIF NOT ISDEFINED('attributes.ErrorPage')> 

<CFSET iAttributes.ErrorPage#="error.cfm"> 

</CFIF> 

<CFIF NOT ISDEFINED('attributes.ErrorMailTo’)> 

<CFSET #Attributes.ErrorMailTo#=""> 

</CFIF> 

<CFERROR type="request" 
template="#Attributes.ErrorPage#" 
mailto="#Attributes.ErrorMailTo#"> 

</CFIF> 

</CFIF> 

<1 - 

BECAUSE OF A BUG IN THE WAY THAT CFHTTP INTERACTS WITH COMMA 
SEPERATED TEXT FILES, IT IS NECESSARY TO INSERT AN EXTRA 
RECORD IN THE BEGINNING THAT GETS OMITTED BY CFHTTP. THIS EXTRA 
RECORD IS ADDED BY APPENDING A DUPLIUCATE TICKER SYMBOL TO THE 
LIST BEING PASSED TO YAHOO 


<CFSET #Symbol_List# = #ListFirst(Attributes.TickerSymbols)#> 

<1 - 

CHECKS TO SEE IF A LIST OF SYMBOLS WAS PASSED, AND IF SO, 
STRIPS THE COMMA DELIMITERS AND ADDS THE + SIGN INSTEAD 
SO THAT IT CAN BE PASSED TO YAHOO IN A URL. IF NO SYMBOLS 
ARE PASSED, CF_STOCKGRABBER WILL STILL EXECUTE, USING 
YAHOO'S SYMBOL :-) 


<CFIF #ParameterExists(Attributes.TickerSymbols)# IS "Yes"> 

<CFIF #Attributes.TickerSymbols# IS ""> 

<CFSET #TickerSymbols# ="yhoo"> 

<CFSET #Symbol_List# = ListAppend{#Symbol_List#,#TickerSymbols#)> 
<CFELSE> 

<CFSET #TickerSymbols# ="#Attributes.TickerSymbols#"> 

<CFSET #Symbol_List# = ListAppend(#Symbol_List#,#TickerSymbols#)> 
</CFIF> 

<CFELSE> 

<CFSET #TickerSymbols# ="yhoo"> 

<CFSET #Symbol_List# = ListAppend(#Symbol_List#,#TickerSymbols#)> 
</CFIF> 

<! - 

THIS IS WHERE THE DELIMITERS ARE CHANGED TO + SIGNS 

- > 

<CFSET #Symbol_List# = ListChangeDelims(#Symbol_List#, "+")> 

<1 - 

BECAUSE AN EXTRA + SIGN IS ADDED TO THE LIST, IT 
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NEEDS TO BE REMOVED OR IT WILL CAUSE AN ERROR 


- > 
<CFSET #RemovePlus# = Len (#SYinbol_List#) > 

<CFSET #Syinbol_List# = RemoveChars{#Symbol_List#, #RemovePlus#, 1)> 

<CFIF #ParameterExists(Attributes.QueryName)# IS "Yes"> 

<CFIF #Attributes.QueryName# IS ""> 

<CFSET #QueryName# =''GetQuotes"> 

<CFSET #Caller.QueryName# ="GetQuotes"> 

<CFELSE> 

<CFSET #QueryName# ="#Attributes.QueryName#"> 

</CFIF> 

<CFELSE> 

<CFSET #QueryNaiiie# ="GetQuotes"> 

<CFSET #Caller.QueryName# ="GetQuotes"> 

</CFIF> 

-- 

Using CFHttp, go out to Yahoo's site/ query the 
server for the desired quotes, returning the results 
as a comma separated list, parsing the list into 
variables, and returning them to the user. 

> 


<!- Get the Us/Canada quotes -> 

<CFHTTP METHOD="GET" 

URL="http://quote.yahoo.com/download/quotes.csv?Symbols=#Symbol List#&f 
ormat=slldltlclohgv&ext=.csv" “ 

NAME="#QueryName #" 

COLUMNS="Symbol,Last_Traded_Price,Last_Traded_Date,Last_Traded Time,Cha 
nge,Opening_Price,Days_High,Days_Low,Volume" ~ 

DELIMITER="," 

TEXTQUALIFIER=""> 

<!- RECREATE QUERY -> 

<CFSET MyArray = ArrayNew(l)> 

<CFSET MyQuery = Evaluate("#QueryName#")> 

<CFSET NewColumns = "#MyQuery.ColxmmList#, EXCHANGE"> 

<CFSET NewQuery = QueryNew(NewColumns)> 

<!- ADD ROWNUMBER TO END OF EACH ROW'S VALUE -> 

<CFOUTPUT QUERY="MyQuery"> 

<CFSET MyArray[CurrentRow] = NumberFormat(CurrentRow, "000009")> 

<CFSET Temp = QueryAddRow(NewQuery)> 

</CFOUTPUT> 


<!- POPULATE THE NEW QUERY WITH THE INFO FROM THE OLD ONE, BUT WITH 

ALL QUOTES REMOVED -> 

<CFLOOP FROM=l TO=#MyQuery.RecordCount# INDEX="This”> 

<CFSET Row = Val(Right(MyArray[This], 6))> 

<CFLOOP LIST="#MyQuery.ColuinnList#" INDEX="Col"> 

<CFIF RIGHT (Evaluate("MyQuery.Symbol [Row] "), 3) IS 
<CFSET Exch="Montreal"> 

<CFELSEIF RIGHT(Evaluate("MyQuery.Symbol[Row]"),3) IS ".v"""> 
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<CFSET Exch="Vancouver"> 

<CFELSEIF RIGHT(Evaluate("MyQuery.Symbol[Row]"),4) IS 
<CFSET Exch="Toronto"> 

<CFELSEIF RIGHT(Evaluate("MyQuery.Symbol[Row]"),4) IS ".AL"""> 

<CFSET Exch="Alberta"> 

<CFELSE> 

<CFSET Exch="US"> 

</CFIF> 

<CFSET Temp = QuerySetCell(NewQuery, Col, 

Replace (Evaluate ("MyQuery.#Col# [Row] "),"All"), This) > 
</CFLOOP> 

<CFSET Temp = QuerySetCell(NewQuery, "EXCHANGE", Exch, this)> 
</CFLOOP> 

<!- PASS QUERY WITH QUOTATION MARKS REMOVED BACK TO CALLING TEMPLATE 

-> 

<CFSET "Caller.#QueryName#" = NewQuery> 

SRWINTAB.CFM 


<CFIF ThisTag.ExecutionMode IS "Start"> 

<CFINCLUDE TEMPLATE="getProgramDefaults.cfm"> 

<CFPARAM NAME="ATTRIBUTES.tabs" DEFAULT=""> 

<CFPARAM NAME="ATTRIBUTES.tabSelected" DEFAULT="1"> 

<CFPARAM NAME="ATTRIBUTES.tabURL" DEFAULT=""> 

<CFPARAM NAME="ATTRIBUTES.baseURL" DEFAULT=""> 

<CFPARAM NAME="ATTRIBUTES.system_toolBar" DEFAULT=""> 

<CFPARAM NAME="ATTRIBUTES.system_toolBarLinks" DEFAULT=""> 

<CFPARAM NAME="ATTRIBUTES.system_addid" DEFAULT=""> 

<CFPARAM NAME="ATTRIBUTES.toolBar" DEFAULT=""> 

<CFPARAM NAME="ATTRIBUTES.toolBarLinks" DEFAULT=""> 

<TABLE BORDER=0 CELLSPACING=0 CELLPADDING=0> 

<TR> 

<CFSET counter = 0> 

<CFLOOP LIST="#ATTRIBUTES.tabs#" INDEX="element"> 

<CFSET counter = counter + 1> 

<!- show beginning tab -> 

<CFIF counter EQ 1> 

<CFOUTPUT> 

<TD CLASS="#Iif( counter EQ ATTRIBUTES.tabSelected,De( 'winTabSelected' 
),De( 'winTabUnselected' ) )#" ALIGN="right" VALIGN="bottom"><IMG 
SRC="#VARIABLES.gvIMAGE_DIRECTORY#tab_left_side.gif" BORDER="0"></TD> 
<TD CLASS="#Iif( counter EQ ATTRIBUTES.tabSelected,De( 'winTabSelected' 
),De( 'winTabUnselected' ) )#" ALIGN="right" VALIGN="middle"> 

<CFIF #ListLen( ATTRIBUTES.tabs )# NEQ 1> 

<A CLASS="mainTab" HREF="#ListGetAt{ ATTRIBUTES.tabURL,counter 
)#">#element#</A> 

<CFELSE> 

#element# 
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</CFIF> 

</TD> 

<CFIF counter EQ #ListLen( ATTRIBUTES.tabs )#> 

<TD CLASS="#Iif( counter EQ ATTRIBUTES.tabSelected,De{ ’winTabSelected' 
),De( ’winTabUnselected’ ) )#" ALIGN="left" VALIGN="bottom"><IMG 
SRC=''#Iif( URL.alD EQ l,De{ VARIABLES.gvIMAGE_DIRECTORY & 

'tab_right_select.gif' ),De( VARIABLES.gvIMAGE_DIRECTORY & 
'tab_last_right_unselect.gif' ) )#" BORDER="0"></TD> 

<CFELSE> 

<TD CLASS="#Iif( counter EQ ATTRIBUTES.tabSelected,De( 'winTabSelected' 
),De( 'WinTabUnselected' ) ) #" ALIGN="left" VALIGN=''bottoia"><IMG 
SRC="#Iif( URL.alD EQ l,De( VARIABLES.gvIMAGE_DIRECTORY & 
'tab_right_select.gif' ),De( VARIABLES.gvIMAGE_DIRECTORY & 
'tab_right_unselect.gif' ) )#" BORDER="0"></TD> 

</CFIF> 

</CFOUTPUT> 

<!-show ending tab-> 

<CFELSEIF counter EQ #ListLen( ATTRIBUTES.tabs )#> 

<CFOUTPUT> 

<TD CLASS="#Iif{ counter EQ ATTRIBUTES.tabSelected,De{ 'winTabSelected' 
),De( 'WinTabUnselected' ) ) #" ALIGN="right" VALIGN="bottom'’><IMG 
SRC="#VARIABLES.gvIMAGE_DIRECTORY#tab_left_side.gif" BORDER="0"></TD> 
<TD CLASS="#Iif( counter EQ ATTRIBUTES.tabSelected,De( 'winTabSelected' 
),De( 'WinTabUnselected' ) )#" ALIGN="right’' VALIGN="raiddle"> 

<CFIF #ListLen( ATTRIBUTES.tabs )# NEQ 1> 

<A CLASS="mainTab" HREF="#ListGetAt( ATTRIBUTES.tabURL,counter 
) #”>#eleraent#</A> 

<CFELSE> 

#element# 

</CFIF> 

</TD> 

<TD CLASS=''#Iif ( counter EQ ATTRIBUTES .tabSelected, De ( 'winTabSelected' 
),De( 'WinTabUnselected' ) )#" ALIGN="left" VALIGN="bottom"><IMG 
SRC="#VARIABLES.gvIMAGE_DIRECTORY#tab last right unselect.gif" 
BORDER="0"></TD> “ 

</CFOUTPUT> 

<!-show middle tab-> 

<CFELSE> 

<CFOUTPUT> 

<TD CLASS='’#Iif { counter EQ ATTRIBUTES.tabSelected,De { 'winTabSelected' 
),De( 'WinTabUnselected' ) ) #" ALIGN=''right" VALIGN="bottom'’><IMG 
SRC="#VARIABLES.gvIMAGE_DIRECTORY#tab_left_side.gif" BORDER="0"></TD> 
<TD CLASS="#Iif( counter EQ ATTRIBUTES.tabSelected,De{ 'winTabSelected' 
),De( 'WinTabUnselected' ) )#" ALIGN="right" VALIGN="middle"> 

<CFIF #ListLen( ATTRIBUTES.tabs )# NEQ 1> 

<A CLASS="mainTab" HREF="#ListGetAt( ATTRIBUTES.tabURL,counter 
)#">#element#</A> 

<CFELSE> 

telement# 

</CFIF> 

</TD> 

<TD CLASS=''#Iif( counter EQ ATTRIBUTES.tabSelected,De( 'winTabSelected' 
),De( 'WinTabUnselected' ) )#" ALIGN="left" VALIGN="bottom"><IMG 
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SRC="#Iif{ URL.alD EQ counter,De( VARIABLES.gvIMAGE_DIRECTORY & 
'tab_right_select.gif’ ),De( VARIABLES.gvIMAGE_DIRECTORY & 
’tab_right_unselect.gif' ) )#" BORDER=*'0"></TD> 

</CFOUTPUT> 

</CFIF> 

</CFLOOP> 

</TR> 

</TABLE> 

<CFOUTPUT> 

<TABLE CLASS="winTab" WIDTH=100% CELLSPACING=0 CELLPADDING=0> 
<TR CLASS="winTab" > 


<TD ALIGN="left"> 

<TABLE BORDER=0 CELLPADDING=1 CELLSPAGING=1> 

<TR> 

<TD> 

<TABLE BORDER=0 CELLPADDING=0 CELLSPACING=0> 

<TR> 

<CFLOOP INDEX="Counter" FROM="l" TO="#ListLen{ 

ATTRIBUTES.system_toolBar )#"> 

<TD ALIGN="center"> 

&nbsp;&nbsp;<A CLASS="toolBar" HREF="#ListGetAt{ 

ATTRIBUTES. systein_toolBarLinks, Counter ) ##Iif ( ATTRIBUTES. systein,_addid 
NEQ ’',De( & ATTRIBUTES.system_addid ),De{ " ) )#">#ListGetAt( 

ATTRIBUTES.system_toolBar,Counter )#</A> 

</TD> 

</CFLOOP> 

</TR> 

</TABLE> 

</TD> 

</TR> 

</TABLE> 

</TD> 

<TD ALIGN="right"> 

<TABLE BORDER=0 CELLPADDING=1 CELLSPACING=1> 

<TR> 

<TD> 

<TABLE BORDER=0 CELLPADDING=0 CELLSPACING=0> 

<TR> 

<CFLOOP INDEX="Counter" FROM="l" TO="#ListLen( ATTRIBUTES.toolBar )#"> 
<TD ALIGN="center"> 

&nbsp;&nbsp;<A CLASS="toolBar" HREF="#ListGetAt( 

ATTRIBUTES.toolBarLinks,Counter )#">#ListGetAt ( 

ATTRIBUTES.toolBar,Counter )#</A> 

</TD> 

</CFLOOP> 

</TR> 

</TABLE> 

</TD> 

</TR> 

</TABLE> 

</TD> 


263 



</TR> 


<TR> 

<TD C0LSPAN=2> 
</CFOUTPUT> 


<CFELSEIF ThisTag.ExecutionMode IS ''End"> 

<CFOUTPUT> 

</TD> 

</TR> 

<TR CLASS="winTab" > 

<TD ALIGN="left"> 

<TABLE BORDER=0 CELLPADDING=1 CELLSPACING=1> 

<TR> 

<TD> 

<TABLE BORDER=0 CELLPADDING=0 CELLSPACING=0> 

<TR> 

<CFLOOP INDEX="Counter" FR0M="1" TO="#ListLen( 

ATTRIBUTES. systein_toolBar ) #"> 

<TD ALIGN="center"> 

&nbsp;&nbsp;<A CLASS="toolBar" HREF="#ListGetAt( 

ATTRIBUTES.system_toolBarLinks,Counter )#">#ListGetAt ( 

ATTRIBUTES. systein_toolBar, Counter ) #</A> 

</TD> 

</CFLOOP> 

</TR> 

</TABLE> 

</TD> 

</TR> 

</TABLE> 

</TD> 

<TD ALIGN="right"> 

<TABLE BORDER=0 CELLPADDING=1 CELLSPACING=1> 

<TR> 

<TD> 

<TABLE BORDER=0 CELLPADDING=0 CELLSPACING=0> 

<TR> 

<CFLOOP INDEX="Counter” FR0M="1" TO="#ListLen( ATTRIBUTES.toolBar )#"> 
<TD ALIGN="center"> 

&nbsp;&nbsp;<A CLASS="toolBar" HREF="#ListGetAt( 

ATTRIBUTES.toolBarLinks,Counter )#">#ListGetAt( 

ATTRIBUTES.toolBar,Counter )#</A> 

</TD> 

</CFLOOP> 

</TR> 

</TABLE> 

</TD> 

</TR> 

</TABLE> 

</TD> 


</TR> 

</TABLE> 
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</CFOUTPUT> 


</CFIF> 


SRHELPSUMMARY.CFM 

CFPARAM NAME="ATTRIBUTES.id" DEFAULT="-1"> 

<CFPARAM NAME="ATTRIBUTES.shortName" DEFAULT=”"> 

<CFPARAM NAME="ATTRIBUTES.Page" DEFAULT=" 

<CFINCLUDE TEMPLATE="getProgramDefaults.cfm"> 

<CFIF IsDefined( "FORM. siainmary_id" )> 

<CFIF NOT CompareNoCase { FORM.siJinmary_id, )> 

<CFINSERT DATASOURCE=”#VARIABLES.gvDATASOURCE_CONFIG#" 
TABLENAME=" tb 1 Suinma r y " > 

<CFELSE> 

<CFUPDATE DATASOURCE="#VARIABLES.gvDATASOURCE_CONFIG#" 
TABLENAME="tblSuinmary"> 

</CFIF> 

</CFIF> 

<CFQUERY NAME="getSuiamary" 

DATASOURCE="#VARIABLES.gvDATASOURCE_CONFIG#"> 

SELECT * 

FROM tblSiJininary 
WHERE 0=0 AND 

<CFIF #ATTRIBUTES.shortName# NEQ ""> 
shortName = '#ATTRIBUTES.shortName#’ 

<CFELSEIF #ATTRIBUTES.id# NEQ -1> 
summary_id = '#ATTRIBUTES.id#' 

</CFIF> 

</CFQUERY> 


<CFSET textToDisplay = #getSummary. sxammary#> 

<CFIF IsDefined{ "SESSION.aem" )> 

<STYLE TYPE="text/css"> 

.siommaryEdit 

{ 

font: 8pt Tahoma, Verdana, Arial; 
background-color: #FFFFFF; 
border: Ipx solid black; 

} 


A.summaryOption:link 
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{ 

color: black; 
text-decoration: none; 
font-size: 8pt; 
font-weight: bold; 

} 

A.summaryOption:active 
{ 

color: black; 
text-decoration: none; 
font-size: 8pt; 
font-weight: bold; 

} 

A.simmaryOption:visited 
{ 

color: black; 
text-decoration: none; 
font-size: 8pt; 
font-weight: bold; 

} 

A. suiQiaaryOption: hover 

{ 

color: black; 

text-decoration: underline; 
font-size: 8pt; 

} 

</STYLE> 

<CFIF #SESSION.aem#> 

<CFOUTPUT> 

<FORM NAME=”aem_helpSuinmary” ACTION="?#CGI.query string#" 

METHOD="post"> 

<INPUT TyPE="hidden" NiME="suinmary_id" VALUE="#getSummarY.siraimary id#"> 
<INPtJT TYPE="hidden" NAME="shortName" VALUE="#ATTRIBUTES.shortName#”> 

<TABLE BORDER=0> 

<TR> 

<TD CLASS="winTabLabel">&nbsp;Help Summary ATTRIBUTES.Page NEQ 

"",De( ATTRIBUTES.Page & '/' ),De{ " ) )##ATTRIBUTES.shortName#):</TD> 
</TR> 

<TR> 

<TD CLASS=''winTabField''> 

<^TEXTAREIA CLASS="suinmaryEdit” COLS~70 ROWS=5 NAME=”summary” 
WRAP="soft">#getSummary. summary#</TEXTAREA> 

</TD> 

</TR> 

<TR> 

<TD CLASS="winTabField" ALIGN="center"> 

<A CLASS=”summaryOption" 

HREF="j avascript:document.aem_helpS\ammary.submit()">Save</A>&nbsp;snbsp 
;<A CLASS="summaryOption" 

HREF="javascript:document.aem_helpSummary.reset()">Undo</A> 

</TD> 
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</TR> 

</TABLE> 

</FORM> 

</CFOUTPUT> 

</CFIF> 

<CFELSE> 

<STYLE TYPE="text/css"> 

TD. suiiraiaryText 

{ 

font: lOpt Tahoma, Verdana, Arial; 
color: black; 

} 

</STYLE> 

<TABLE BORDER=0> 

<TR> 

<TD CLASS="suinmaryText"> 
<CFOUTPUT> 

#VARIABLES.textToDisplay# 
</CFOUTPUT> 

</TD> 

</TR> 

</TABLE> 

</CFIF> 

11. INFRASTRUCTURE FILES 

SUBHEADER.CFM 


<TABLE BORDER="0" WIDTH=100% CELLPADDING=0 CELLSPACING=0> 

<!-MAIN LOGO-> 

<TR VALIGN="bottom"> 

<TD WIDTH=50%> 

<CF_getContent 

TYPE="#aComponent[URL.alD][cHEADER_LEFT][cCOMPONENT_TYPE]#" 
FILE="#aComponent[URL.alD][cHEADER_LEFT][cCOMPONENT_FILE]#" 
URL="#aComponent[URL.alD][CHEADER_LEFT][cCOMPONENT_URL]#" 
INLINE="#aComponent[URL.alD][cHEADER_LEFT][cCOMPONENT_INLINECODE]#" 

> 

</TD> 

<TD WIDTH=50%> 

<CF_getContent 

TyPE="#aComponent[URL.alD][cHEADER_RIGHT][cCOMPONENT_TYPE]#" 
FILE="#aComponent[URL.alD][cHEADER_RIGHT][cCOMPONENT~FILE]#" 
URL="#aComponent[URL.alD][cHEADER_RIGHT][cCOMPONENT_URL]#" 
INLINE="#aCoinponent[URL.alD][cHEADER_RIGHT][cCOMPONENT_INLINECODE]#" 
> 

</TD> 

</TR> 
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<!-SPACE —> 

<TR VALIGN="top"> 

<TD C0LSPAN=2>&nbsp;</TD> 
</TR> 

</TABLE> 


SUBPANEL.CFM 

<!-FORMAT LEFT PANEL CONTENTS-> ’ 

<TABLE WIDTH="130" BORDER="0” CELLPADDING="0" CELLSPACING="0"> 
<TR> 

<TD> 

<CF_getContent 

TYPE="#aComponent[URL.aID][cPANEL][cCOMPONENT_TYPE]#" 
FILE="#aComponent[URL.aID][cPANEL][cCOMPONENT_FILE]#" 
URL=''#aCoinponent[URL.aID] [cPANEL] [cCOMPONENT_URL] #" 
INLINE=''#aComponent[URL.aID] [cPANEL] [cCOMPONENT_INLINECODE] #" 

</TD> 

</TR> 

<!- END FORMAT LEFT PANEL CONTENTS -> 

</TABLE> 


SUBTABS.CFM 

<!-TABS-> 

<TABLE BORDER=0 WIDTH=100% CELLPADDING=0 CELLSPACING=0> 

<TR> 

<TD VALIGN="bottom"> 

<CF_getContent 

TYPE=''#aComponent [URL.alD] [cTABS] [cCOMPONENT TYPE]#" 
FILE="#aComponent[URL.aID][cTABS][cCOMPONENT~FILE]#" 
URL="#aComponent[URL.alD][cTABS][cCOMPONENT_URL]#" 
INLINE="#aComponent[URL.alD][cTABS][cCOMPONENT_INLINECODE]#" 

</TD> 

</TR> 

</TABLE> 


SUBTOOLBAR.CFM 

<TABLE BORDER="0" WIDTH="100%" CELLSPACING="0" CELLPADDING="3"> 
<TR> 

<TD CLASS="toolBar"> 

<CF_getContent 

TYPE="#aComponent[URL.alD][cTOOLBAR][cCOMPONENT_TYPE]#" 
FILE="#aComponent[URL.alD][cTOOLBAR][cCOMPONENT_FILE]#" 
URL="#aComponent[URL.alD][cTOOLBAR][cCOMPONENT_URL]#" 
INLINE="#aComponent[URL.alD][cTOOLBAR][cCOMPONENT_INLINECODE]#" 

</TD> 


268 




</TR> 


</TABLE> 

SUBFOOTER.CFM 


<!- FORMAT LEFT PANEL CONTENTS -> 

<TABLE WIDTH="100%" BORDER="0" CELLPADDING="0" CELLSPACING="0"> 
<TR> 

<TD CLASS="footer"> 

<CF_getContent 

TYPE="#aComponent[URL.aID][cFOOTER][cCOMPONENT_TYPE]#" 
FILE="#aComponent[URL.aID][cFOOTER][cCOMPONENT_FILE]#" 
URL="#aComponent[URL.aID][cFOOTER][cCOMPONENT_URL]#" 
INLINE="#aComponent[URL.aID][cFOOTER][cCOMPONENT_INLINECODE]#" 

> 

</TD> 

</TR> 

<!-END FORMAT LEFT PANEL CONTENTS-> 

</TABLE> 


SUBBODY.CFM 


<!-ACTUAL WORK AREA-> 

<TABLE BORDER="0" WIDTH="100%" CELLSPACING="3" CELLPADDING="0"> 
<TR> 

<TD> 

<CFIF IsDefined( "URL.body" )> 

<CFIF NOT FileExists( "#GetDirectoryFromPath( GetTemplatePath{) 

)#\#URL.body#" )> 

File Not Found! 

<CFELSE> 

<CFINCLUDE TEMPLATE="#URL.body#"> 

</CFIF> 

<CFELSEIF IsDefined( "URL.www" )> 

<CFHTTP URL="#URL.www#" RESOLVEURL="yes"> 

<CFOUTPUT> 

#CFHTTP.FileContent# 

</CFOUTPUT> 

<CFELSE> 


<CF_getContent 

TYPE="#aComponent[URL.alD][cBODY][cCOMPONENT_TYPE]#" 
FILE="#aComponent[URL.alD][cBODY][cCOMPONENT_FILE]#" 
URL="#aComponent[URL.alD][cBODY][cCOMPONENT_URL]#" 
INLINE="#aComponent[URL.alD][cBODY][cCOMPONENT_INLINECODE]#” 
> 


</CFIF> 

</TD> 
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</TR> 


<!-END ACTUAL WORK AREA-> 

</TABLE> 


COMPONENT DECLARE CFM 

<CFSCRIPT> 

cCONFIG_FILE = GetDirectoryFromPath( GetTemplatePath() ) & 
"component.cfg"; 

cHEADER_RIGHT = 1; 

CHEADER_LEFT = 2; 

CTABS = 3; 
cPANEL =4; 
cTOOLBAR = 5; 
cBODY = 6; 

CFOOTER = 7; 
cAPPLICATION = 8; 

cCOMPONENT_NAME = 1; 
cCOMPONENT_TyPE = 2; 
cCOMPONENT_INLINECODE = 3; 
cCOMPONENT_FILE = 4; 
cCOMPONENT_URL = 5; 
cCOMPONENT_LOCKED = 6; 
cCOMPONENT_LOCKEDBy = 7; 

cAPPLICATION_NAME = 1; 
cAPPLICATION_DESCRIPTION = 2; 
cAPPLICATION_DATECREATED = 3; 
cAPPLICATION_CREATEDBy = 4; 
cAPPLICATION_LASTUPDATED = 5; 
cAPPLICATION_UPDATEDBy = 6; 
cAPPLICATI0N_CARG01 = 7; 

</CFSCRIPT> 


COMPONENT PREPARE CFM 

<CFFILE 

ACTION="read" 

FILE="#GetDirectoryFromPath( GetTemplatePath{) )#component.cfa" 
VARIABLE="DataPacket" 


<CFWDDX 

INPUT="#DataPacket#" 
OUTPUT^ " aComponent" 
ACTION="WDDX2CFML" 
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APPLICATION.CFM 


<!- INCLUDE DEFAULTS JUST IN CASE USER DEFINED CONFIG FILE NOT FOUND 

-> 

<CFINCLUDE TEMPLATE="getProgra]iiDefaults.cfm"> 

<!- APPLICATION SPECIFIC INFORMATION -> 

<CFAPPLICATION NAME="ReadinessExplorer" SESSIONMANAGEMENT="yes" 
CLIENTMANAGEMENT="YES" CLIENTSTORAGE="reUSERS"> 

<CFIF IsDefined( "URL.aem" )> 

<CFIF #URL.aem#> 

<CFSET SESSION.aem = true> 

<CFELSE> 

<CFSET StructDelete(SESSION, "aem")> 

</CFIF> 

</CFIF> 

<!- look for these two variables in order start login process over — 

-> 

<CFIF ( Not{ IsDefined( "SESSION.InitializeThis" ) ) OR IsDefined( 
"FORM.xloginid" ) )> 

<!- did user come in from the login form?. If so, grab all data about 

them-> 

<CFIF IsDefined( "FORM.xLogInId" ) AND IsDefined( "FORM.xPassword" )> 

<CFQUERY NAME="GetUserRecord" 

DATASOURCE="#VARIABLES.gvDATASOURCE_USER#"> 

SELECT * 

FROM tblUserAccounts 

WHERE user_loginid = ’#FORM.xLogInID#' AND 

user_Password = '#FORM.xPassword#’ 

</CFQUERY> 

<!- if record was found and not locked, then get and set some data 

about them -> 

<CFSET flagUserOK = false> 

<CFIF GetUserRecord.RecordCount NEQ 0> 

<CFIF #VARIABLES.gvPSWD_ISCASE#> 

<CFIF { #Compare( GetUserRecord.user_loginid, FORM.xLogInID )# EQ 0 ) 

AND 

( tCompare( GetUserRecord.user_password, FORM.xPassword )# EQ 0 )> 

<CFSET flagUserOK = true> 

</CFIF> 

<CFELSE> 

<CFSET flagUserOK = true> 
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</CFIF> 


</CFIF> 

<CFIF #VARIABLES.flagUserOK#> 

<CFIF NOT #GetUserRecord.locked#> 

<CFOUTPUT QUERY="GetUserRecord"> 

<CFSET SESSION.InitializeThis = Now()> 

<CFSET SESSION.loginid = #user_loginid#> 

<CFSET SESSION.access = #access#> 

<CFSET SESSION.user_id = #user id#> 

<CFSET SESSION.LastLogOn = #Last_Logon#> 

<CFSET SESSION.FirstOn = TRUE> 

<CFSET SESSION.LogOnAttempts = 1> 

<CFSET SESSION.LogSequence = 0> 

<CFSET SESSION.showPanel = #panelStatus#> 

<CFSET SESSION.deskTop = #deskTop#> 

<CFSET SESSION.accountExpires = #expire#> 

<! remember to add client variables for such things as desktop, etc. 

<CFIF IsDefined( "CLIENT.CurrIP" )> 

<CFSET CLIENT.LastIP = #CLIENT.CurrIP#> 

<CFELSE> 

<CFSET CLIENT.LastIP = "First Time On"> 

</CFIF> 

<CFSET CLIENT.CurrIP = #CGI.REMOTE_ADDR#> 

</CFOUTPUT> 

<! ********** SECTION FOR mySECURITY REMEMBER LOGIN 

******* _ > 

<CFQUERY NAME="UpdateLogon" DATASOURCE="#VARIABLES.gvDATASOURCE_USER#"> 
UPDATE tblUserAccounts 

SET last_logon = #Now()#, login_attempts = 0 
WHERE user_loginid = '#SESSION.loginid#’ 

</CFQUERY> 

<CFQUERY NAME="UpdateSecurity" 

DATASOURCE="#VARIABLES.gvDATASOURCE_USER#"> 

SELECT Count(*) AS mySecurityOk 

FROM tblMySecurity 

WHERE user_id = #SESSION.user_id# 

</CFQUERY> 

<CFIF #UpdateSecurity.mySecurityOk# NEQ 0> 

<CFQUERY NAME="UpdateSecurity" 

DATAS OURCE="#VARIABLES.gvDATASOURCE USER#"> 
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UPDATE tblmySecurity 

SET rememberLogin = <CFIF IsDefined( "FORM.xRememberLogin" 

)>true<CFELSE>false</CFIF> 

■ WHERE user_id = #SESSION.user_id# 

</CFQUERY> 

</CFIF> 

<!- check for cookie requirements and update -> 

<CFIF #VARIABLES.gvPSWD_REMEMBER#> 

<CFIF IsDefined{ "FORM.xRememberLogin" )> 

<CFIF #FORM.xRememberLogin#> 

<SCRIPT LANGUAGE="javascript" SRC="cookies.js"></SCRIPT> 

<SCRIPT LANGUAGE="javascript"> 

<CFOUTPUT> 

<!- set expiration to 30 days for now, this will be an option for 

ADMIN-> 

saveCookie( 'cookieLogin','#FORM.xLogInID#’, 30); 
saveCookie( 'cookiePassword','#FORM.xPassword#30); 
saveCookie( 'cookieRemember','#FORM.xRememberLogin#',30); 
</CFOUTPUT> 

</SCRIPT> 

</CFIF> 

<CFELSE> 

<!- delete cookies just in case -> 

<SCRIPT LANGUAGE="javascript" SRC="cookies.js"></SCRIPT> 

<SCRIPT LANGUAGE="javascript"> 
deleteCookie( 'cookieLogin' ); 
deleteCookie( 'cookiePassword' ); 
deleteCookie( 'cookieRemember' ); 

</SCRIPT> 

</CFIF> 

</CFIF> 

<CFELSE> 

<!- sorry, record is locked, so don't let them in -> 

<CFABORT SHOWERROR="Deny!"> 

</CFIF> 

<!- DONE WITH FIRST TIME LOG IN -> 

<CFELSE> 

<!- CHECK TO SEE IF login ID IS REAL, AND IF SO ADJUST ATTEMPTS — 

<CFQUERY NAME="GetLogInRecord" 

DATASOURCE="#VARIABLES.gvDATASOURCE_USER#"> 
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SELECT * 

FROM tblUserAccounts 

WHERE user_loginid = '#FORM.xLogInID#' 

</CFQUERY> 

<! IF LOGIN ID IS FOUND, UPDATE USER'S RECORD WITH AN ATTEMPT -> 

<CFIF GetLogInRecord.RecordCount IS NOT 0> 

<CFQUERY NAME="UpdateAttempts" 

DATASOURCE="#VARIABLES.gvDATASOURCE_USER#"> 

UPDATE tblUserAccounts 

SET login_attempts = login_atterapts + 1 

WHERE user_loginid = '#FORM.xLogInID#' 

</CFQUERY> 

<! IF ATTEMPTS REACHES NUMBER, LOCK RECORD IF AVAILABLE. NOTE' ADD 1 

BECAUSE OF UPDATE ABOVE NOT IN QUERY -> 

<CFIF ( #GetLogInRecord.login_attempts# + 1 ) GTE 

#VARIABLES.gvLOGON_ATTEMPTS#> 

<! SORRY, REACHED THE LOGIN ATTEMPTS LIMIT, SO LOCK RECORD -> 

<CFQUERY NAME=’'UpdateAttempts" 

DATASOURCE="#VARIABLES.gvDATASOURCE_USER#"> 

UPDATE tblUserAccounts 

SET locked = true 

WHERE user_loginid = '#FORM.xLogInID#' 

</CFQUERY> 


<!- sorry, record is locked, so don't let them in -> 

<CFABORT SHOWERROR="Deny!"> 

</CFIF> 

</CFIF> 

<! sorry, record is locked, so don't let them in > 

<CFABORT SHOWERROR="Deny!''> 

</CFIF> 

<CFELSE> 

<CFLOCATION URL="index.htm"> 

</CFIF> 

<CFELSE> 

<CFSET SESSION.InitializeThis = Now()> 

<CFSET SESSION.FirstOn = FALSE> 
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<CFSET SESSION.LogOnAttempts = 1> 


</CFIF> 

INDEX.CFG 


<HTML> 

<HEAD> 

<TITLE>Welcoiae to Readiness Explorer</TITLE> 
<STYLE TYPE='text/css*> 

LOG-IN PROPERTIES 

■*-**-3t****Jr*-*‘******'* + ***-******-*'**Tt***'i«r******-*-y^ 

TD.Login 

{ 

font: 12px tahoma,verdana^arial; 
color: black; 
font-weight: bold; 

} 

TD.LoginFooter 
{ 

font: 12px tahoma,verdana, arial; 
color: black; 

} 

A.LogIn:link 

{ 

color: black; 

text-decoration: none; 

font: lOpt Tahoma, Verdana, Arial; 

font-weight: bold; 

} 

A. Login:active 

{ 

color: black; 

text-decoration: none; 

font: lOpt Tahoma, Verdana, Arial; 

font-weight: bold; 

} 

A. Login:visited 

{ 

color: black; 

text-decoration: none; 

font: lOpt Tahoma, Verdana, Arial; 

font-weight: bold; 

} 

A. Login:hover 

{ 

color: blue; 

text-decoration: underline; 
font: lOpt Tahoma, Verdana, Arial; 
font-weight: bold; 

} 

SPAN.Login 
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{ 

color: black; 

text-decoration: none; 

font: lOpt Tahoma, Verdana, Arial; 

font-weight: bold; 

} 

/******************************************* 

END LOG-IN PROPERTIES 

**************************■k^,■k■k■k■l,■k*^■^■^:^,^,^,■),^,^,^ 

</STYLE> 

<SCRIPT LANGUAGE='JavaScript' SRC=’cookies.js'></SCRIPT> 
<SCRIPT LANGUAGE='javascript'> 
function init() 

{ 

var xL = readCookie('cookieLogin'); 
var xP = readCookie{'cookiePassword'); 
var xR = readCookie('cookieRemember'); 
if( XL != null ) 

document.logonform.xLogInID.value = xL; 

if{ xP != null ) 

document.logonfoirm.xPassword.value = xP; 
if( xR != null ) 

doc\mient.logonform.xRememberLogin.checked = xR; 

document.logonform.xLogInID.focus(); 

} 

</SCRIPT> 

</HEAD> 

<BODY onLOAD='init<)'> 

<BR> 

<BR> 

<BR> 

<BR> 


<FORM ACTION='main.cfm' METHOD=POST NAME='logonform'> 
<CENTER> 

<TABLE BORDER=0 CELLPADDING=0 CELLSPACING=0> 

<TR> 

<TD ALIGN='left'> 


<TABLE BORDER-0 CELLSPACING=0 CELLPADDING=0 BORDERCOLOR='#A8B0D8'> 
<TR BGCOLOR='#A8B0D8'> 

<TD ALIGN=’left' WIDTH=’23*><IMG SRC='images/top left corner.gif' 
WIDTH='23’ HEIGHT='23' BORDER=' 


<TD ALIGN='left' 


'0'></TD> 
CLASS='Login’>WELECOME 


TO READINESS EXPLORER</TD> 


<TD ALIGN 'right' WIDTH—'23'XIMG SRC='images/top right corner.gif' 
WIDTH='23' HEIGHT=’23' BORDER='0'></TD> “ “ 


</TR> 

</TABLE> 


</TD> 

</TR> 
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<TR> 

<TD ALIGN='left'> 

<TABLE BORDER='l' CELLSPACING=’0' CELLPADD1NG='0' 

BORDERCOLOR=' #A8B0D8'> 

<TR> 

<TD> 

<TABLE BORDER='0' WIDTH='100%'> 

<TR> 

<TD VALIGN='middle' ALIGN='left'> 

<IMG SRC=’images/reLogo_Small.jpg' BORDER=0 ALT='Readiness Explorer'> 
</TD> 

<TD VALIGN='top' ALIGN='left'> 

<TABLE BORDER=0 WIDTH=100%> 

<TR> 

<TD CLASS='Login'>Login ID:</TD><TD><INPUT type='password' 
name='xLogInID' size='20' value=''></TD> 

</TR> 

<TR> 

<TD CLASS='Login'>Password:</TD><TD><INPUT type='password' 
name='xPassword' size='20' value=''></TD> 

</TR> 

<TR> 

<TD>&nbsp;</TD> 

<TD ALIGN='center'> 

<TABLE BORDER='0'> 

<TR> 

<TD NOWRAP ALIGN='center' VALIGN='middle'XA CLASS='Login' 

HREF='j avascript:docxment.logonform.submit{)'>Log In</A></TD> 

</TR> 

<TR> 

<TD NOWRAP ALIGN='center' VALIGN='middle'XINPUT TYPE='checkbox' 
VALUE='yes' NAME='xRememberLogin'xSPAN CLASS='Login'>Remember 
Login</DIVX/TD> 

</TR> 

<TR> 

<TD NOWRAP ALIGN='center' VALIGN='middle'XA CLASS='Login' 

HREF='javascript: document, logonf orm. submit () '>Forgot Password?</AX/TD> 
</TR> 

</TABLE> 

</TD> 

</TR> 

</TABLE> 

</TD> 

</TR> 

</TABLE> 

</TD> 

</TR> 

</TABLE> 

</TD> 

</TR> 


<TR> 
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<TD ALIGN='center' CLASS='LoginFooter'> 

<BR> 

You have entered a Department of Defense (DoD) web site<BR> 
maintained by Michael Whitecars Test Site. This site is monitored and 
records all activity. 

</TD> 

</TR> 

</TABLE> 

</CENTER> 

</FORM> 

</BODy> 

</HTML> 


MAIN.CFM 


<CFTRY> 

<!- get the XML structures in order to build pages -> 

<CFINCLUDE TEMPLATE="getStructure.cfm"> 

<!- define default variables -> 

<CFPARAM NAME="URL.workOnLine" DEFAULT="False"> 

<CFIF IsDefined( "URL.a" )> 

<CFLOOP INDEX=”counter" FROM="l" TO="#ArrayLen( aComponent )#"> 

<CFIF aComponent[counter][cAPPLICATION][cAPPLICATION NAME] EQ #URL.a#> 
<CFSET URL.alD = counter> 

<CFBREAK> 

</CFIF> 

</CFLOOP> 

<CFELSE> 

<CFPARAM NAME="URL.aID" DEFAULT=''1"> 

</CFIF> 

<!- 

Store the status of show the panel: 

If a URL is passed, i.e. when the appropriate arrows are clicked, 
then set a SESSION variable to reflect URL variable, else check 
to see if SESSION variable has been set and if not then make true. 

-> 

<CFIF IsDefined( "URL.showPanel" )> 

<CFSET SESSION.showPanel = URL.showPanel> 

<CFIF IsDefined( "URL.updateUser" )> 

<CFIF URL.updateUser EQ "panel”> 

<CFQUERY Ni\ME="UpdatePanelStatus" 

DATASOURCE="#VARIABLES • gvDATASOURCE_USER#"> 

UPDATE tblUserAccounts 

SET panelStatus = #URL.showPanel# 

WHERE user_loginid = 'iSESSION.loginid#' 

</CFQUERY> 
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</CFIF> 


</CFIF> 

</CFIF> 

<CFSET ColSpan = Iif( NOT SESSION.showPanel,2,1 )> 

<CFINCLUDE TEMPLATE="getPageCoininents.cfin"> 

<HTML> 

<HEAD> 

<TITLE><CFOUTPUT>#aComponent[URL.alD][cAPPLICATION][cAPPLICATION_DESCRI 
PTION]#</CFOUTPUT></TITLE> 

<STYLE TYPE="text/css"> 

<CFINCLUDE TEMPLATE="getStyle.cfm"> 

</STYLE> 

<script language="JavaScript" src="pupdate.js"> 

/* 

Popup calendar script by Sev Kotchnev (webmaster@personal- 
connections.com) 

For full source code and installation instructions to this script 
Visit http://www.dynamicdrive.com 
*/ 


</script> 

<SCRIPT LANGUAGE="javascript"> 

<CFINCLUDE TEMPLATE="re2001.js"> 

<CFINCLUDE TEMPLATE="ftiens4.js"> 

</SCRIPT> 

<CFQUERY NAME="getBookmarks" 

DATASOURCE=”#VARIABLES.gvDATASOURCE_USER#"> 

SELECT * 

FROM tblMyBookmarks 

WHERE user_id = #SESSION.user_id# 

ORDER BY bmLabel 

</CFQUERY> 

<CFQUERY NAME="getAddressBook" 

DATASOURCE="#VARIABLES. gvDATASOURCE_USER#"> 

SELECT * 

FROM tblMyAddressBook 

WHERE user_id = #SESSION.user_id# 

ORDER BY cLname 

</CFQUERY> 

<CFQUERY NAME="getmyAccount" 

DATASOURCE= " #VARIABLES. gvDATASOURCE_CONFIG# " > 

SELECT poi_url,poi_title 

FROM ( tblLinkOptionsToPage INNER JOIN tblPageOptionltems ON 
tblLinkOptionsToPage.poi_id = tblPageOptionltems.poi_id ) INNER JOIN 
tblPageOptions ON tblLinkOptionsToPage.po_id = tblPageOptions.po_id 
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WHERE tblPageOptions.po_name = 'myAccount' 

</CFQUERY> 

<CFQUERY NAME="getAdmin’’ DATASOURCE="#VARIABLES.gvDATASOURCE_CONFIG#" 
SELECT poi_url,poi_title 

FROM_ ( tblLinkOptionsToPage INNER JOIN tblPageOptionltems ON 

tblLinkOptionsToPage.poi_id = tblPageOptionltems.poi_id ) INNER JOIN 
tblPageOptions ON tblLinkOptionsToPage.po_id = tblPageOptions.po id 
WHERE tblPageOptions.po_name = 'Admin' “ 

</CFQUERY> 

</HEAD> 

<BODY CLASS="Home"> 

<script language=JavaScript> 

<! — 

/* 

Disable right mouse click Script (By Crash @ http://walk.to/crash) 
Submitted to and permission granted to Dynamicdrive.com to feature 
script in it's archive 

full source code to this script and 100's more, visit 
http://dynamicdrive.com 
*/ 

var message="Right Mouse button disabled."; 
function click(e) { 
if (document.all) { 

if (event.button==2I|event.button==3) { 
alert(message); 
return false; 

} 

} 

else if (document.layers I I document.getElementByld) { 

if (e.which == 3) { 

alert(message); 
return false; 

} 

} 

} 

if (document.layers) { 

document.captureEvents(Event.MOUSEDOWN); 

} 

document.onmousedown=click; 

// —> 

</script> 

<!-show header-> 

<CFINCLUDE TEMPLATE="subHeader.cfm"> 

<!- show tabs with HOME active -> 

<CFINCLUDE TEMPLATE="subTabs.cfm"> 

<TABLE BORDER=0 WIDTH=100% CELLPADDING=0 CELLSPACING=0> 
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<!— DISPLAY AREA —> 

<TR> 

<TD C0LSPAN=2> 

<!-SET UP DISPLAY AREA-> 

<TABLE BORDER=0 WIDTH=100% CELLPADDING=0 CELLSPACING=0> 

<!-TOP EMPTY ROW-> 

<FOKM NAME="quickLinks" ACTION=""> 

<TR> 

<TD CLASS="mainTabSelected" COLSPAN="5" WIDTH="100%" ALIGN="right"> 
<SELECT CLASS="guickList" NAME="itiyBookmarks" SIZE=”1" 
ONCHANGE="quickList{ this )"> 

<OPTION VALUE="">Select a bookmark... 

<CFOUTPUT QUERY="getBookmarks"> 

<CFIF inewWindow# EQ "1"> 

<OPTION VALUE=="main.cfm?a=myAccount&www=#bmURL#">#bmLabel# 

<CFELSEIF #newWindow# EQ "2"> 

<OPTION VALUE="main.cfm?a=myAccount&www=#bmURL#">#bmLabel# 

<CFELSEIF #newWindow# EQ "3"> 

<OPTION VALUE="main.cfm?a=myAccount&body=#bmURL#">#binLabel# 

</CFIF> 

</CFOUTPUT> 

<OPTION VALUE=""> 

<OPTION 

VALUE="main.cfm?a=myAccount&body=iayBookmarks.cfm&action=add">New 
Bookmark... 

<OPTION VALUE="main.cfm?a=myAccount&body=myBookmarks.cfm">Edit 
Bookmarks... 

</SELECT> 

<SELECT CLASS="quickList'’ NAME="myAddressBook" SIZE="1" 
ONCHANGE="quickList( this )”> 

<OPTION VALUE="’’>Select an address... 

<CFOUTPUT QUERY="getAddressBook"> 

<OPTION VALUE="mailto:#cEmailAddress#">#cLname#, #cFname# #cRank# 
</CFOUTPUT> 

<OPTION VALUE="”> 

<OPTION 

VALUE="main.cfm?a=myAccount&body=myAddressBook.cfm&action=add">New 
Address... 

<OPTION VALUE="main.cfm?a=myAccount&body=myAddressBook,cfm">Edit 
Address Book... 

</SELECT> 

<SELECT CLASS="quickList" NAME=”myAccount" SIZE="1" 
ONCHANGE="quickList( this )"> 

<OPTION VALUE="">Select from your account... 

<CFOUTPUT QUERY="getmyAccount"> 

<OPTION VALUE="#poi_url#">#poi_title# 

</CFOUTPUT> 

</SELECT> 

<SELECT CLASS="quickList" NAME="adminList" SIZE="1" 
ONCHANGE="quickList{ this )"> 

<OPTION VALUE="">Select administration task... 

<CFOUTPUT QUERY="getAdmin"> 

<OPTION VALUE="#poi_url#">#poi_title# 

</CFOUTPUT> 
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</SELECT> 

</TD> 

</TR> 

</FORM> 

<!-SECOND ROW-> 

<TR> 

<!- include panel if it is on -> 

<CFIF SESSION.showPanel> 

<!-LEFT PAD-> 

<TD CLASS=’'mainTabSelected" HEIGHT="30" WIDTH="l%">&nbsp;&nbsp;</TD> 

LEFT PANEL (REMEMBER THIS WILL BE AN OPTION)-> 

<TD CLASS="mainTabSelected" WIDTH="9%" ALIGN="center" ROWSPAN="2" 
VALIGN="top"> 

<CFINCLUDE TEMPLATE='<subPanel. cfm"> 

</TD> 

<!-DIVIDER BETWEEN LEFT SIDE PANEL AND WORK AREA-> 

<TD CIASS="mainTabSelected" WIDTH='’l%">&nbsp;</TD> 

<CFELSE> 

<! LEFT PAD > 

<CFOUTPUT> 

<TD CLASS="mainTabSelected" HEIGHT="30" WIDTH="1%'' VALIGN=’'top" 
ALIGN="center''><BR>&nbsp;<A HREF=”#CGI .path_info#?#Replace ( 
CGI.query_string,'showPanel=false','showPanel=true' )##Iif( 
CGI.query_string DOES NOT CONTAIN 'showPanel',De( '&showPanel=true' 
),De( '' ) )##Iif( CGI.query_string DOES NOT CONTAIN 
'updateUser=panel', De( '&updateUser=panel' ),De( '' ) )#"><IMG 
SRC="#VARIABLES.gvIMAGE_DIRECTORY#showPanel.gif" BORDER=0 ALT=”Click to 
Show Panel"></A>&nbsp;</TD> 

</CFOUTPUT> 

</CFIF> 

<!— THIS IS THE ACTUAL WORK AREA COLUMN —> 

<!- WILL NEED TO ADJUST COLSPAN FOR NO OPTIONS TO 2 -> 

<CFOUTPUT> 

<TD CLASS="workAreaBody" COLSPAN="#VARIABLES.colSpan#" WIDTH="98%” 
VALIGN="top” HEIGHT="1” ALIGN=”left”> 

</CFOUTPUT> 

<CF1NCLUDE TEMPLATE="subToolBar.cfm"> 

&nbsp;<BR> 

<CFINCLUDE TEMPLATE="subBody.cfm"> 

&nbsp;<BR> 

<CFINCLUDE TEMPLATE="subToolBar.cfm”> 

</TD> 
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<1-par right border-> 

<TD CLASS="itiainTabSelected" WIDTH=”l%">&nbsp;</TD> 

</TR> 

<TR> 

<TD CLASS="mainTabSelected" WIDTH="l%">&nbsp;</TD> 

<TD CLASS="inainTabSelected" COLSPAN="2" ALIGN="center"> 

<BR> 

<CFLOOP INDEX="counter" FROM="l" TO="#ArrayLen( aComponent )#"> 
<CFOUTPUT> 

<A CLASS="toolBar" 

HREF="main.cfm?aID=#counter#">#aComponent[counter][cAPPLICATION][cAPPLI 
CATION_NAME]#</A>&nbsp; 

</CFOUTPUT> 

</CFLOOP> 

<BR> 

<CFOUTPUT> 

<CFIF IsDefined( "SESSION.aem" )> 

<CFIF #SESSION.aem#> 

<A CIiASS="toolBar" HREF="#CGI.path_info#?#Iif( CGI.query_string 
CONTAINS ' aein=true', De ( Replace ( 

CGI.query_string,'aem=true','aem=false' ) ),De( CGI.query_string & 
'&aem=false' ) )#">Inactivate Edit Mode</A> 

<CFELSE> 

<A CLASS="toolBar" HREF="#CGI.path_info#?#Iif( CGI.query_string 
CONTAINS 'aem=false',De( Replace! 

CGI.query_string,'aem=false','aem=true' ) ),De( CGI.query_string & 

'&aem=true' ) )#">Activate Edit Mode</A> 

</CFIF> 

<CFELSE> 

<A CLASS="toolBar" HREF="#CGI.path_info#?#Iif( CGI.query_string 
CONTAINS 'aem=false',De( Replace! 

CGI.query_string,’aem=false','aem=true' ) ),De! CGI.query_string & 

'&aein=true' ) )#">Activate Edit Mode</A> 

</CFIF> 

</CFOUTPUT> 

</TD> 

<TD CLASS="mainTabSelected" WIDTH="l%">&nbsp;</TD> 

</TR> 

<!- BOTTOM EMPTY ROW 

<TR> 

<TD CLASS="mainTabSelected" COLSPAN=”5” WIDTH="100%">test&nbsp;</TD> 
</TR> 

-> 

<TR> 

<CFOUTPUT> 

<TD CLASS="mainTabSelected" COLSPAN="2" WIDTH=”100%" ALIGN="left"><IMG 
SRC="#VARIABLES.gvIMAGE_DIRECTORY#corner_bottoin_left.gif" 

BORDER=0></TD> 

<TD CLASS="mainTabSelected" COLSPAN="3" WIDTH="100%" ALIGN="right"><IMG 
SRC="#VARIABLES.gvIMAGE_DIRECTORY#corner_bottom_right.gif" 
BORDER=0></TD> 

</CFOUTPUT> 

</TR> 


</TABLE> 
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</TD> 

</TR> 

<TR> 

<TD C0LSPAN=2><CFINCLUDE TEMPLATE="subFooter.cfm'’></TD> 
</TR> 

</TABLE> 

<CFINCLUDE TEMPLATE="srPopUpCalendar.cfm"> 

</BODY> 

</HTML> 

<CFCATCH TYPE="Database"> 

<CF_srERRORMONITOR 
DETAIL="#CFCATCH.Detail#" 

MESSAGE="#CFCATCH.Message#" 

ERROR_CODE="#CFCATCH.NativeErrorCode#" 

SQLSTATE="#CFCATCH.SQLState#" 

TYPE="#CFCATCH.type#" 

IP="#CGI.REMOTE_ADDR#" 

USER="#SESSION,loginid#" 


</CFCATCH> 

<CFCATCH TYPE="Any"> 

<CF_srERRORMONITOR 
DETAIL="#CFCATCH.Detail#" 
MESSAGE="#CFCATCH.Message#" 
TYPE="#CFCATCH.type#" 

IP="#CGI.REMOTE_ADDR#" 
USER="#SESSION.loginid#" 


</CFCATCH> 

</CFTRY> 
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